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Introduction 


INTROfl UCTIQ W 

This Conf} yuration Guidg to Turbo DOS provides the Information that OEMs, dealers, 
and sophisticated end-users need to generate various operating system configurations 
and to implement driver modules for various peripheral components* 

A companion document, entitled iisgr«g Guide to Turbo nos r provides the information 
that users need to write and run programs under the TurboOOS operating system. It 
includes an overview of operating system features, a discussion of architecture and 
theory of operation, a description of each command, and a definition of each user- 
callable function. 

Generating TurfaoDOS Cnnfignratinn* 

TurboOOS is a modular operating system consisting of more than 40 separate 
functional modules* These modules are "building blocks” which can be combined in 
various- ways to produce a family of compatible operating systems. TurboOOS 
configurations include single-task, spooling, time-sharing and networking, with 
numerous subtle variations possible in each of these broad categories* 

Functional modules of TurboOOS are distributed in relocatable form. Hardware- 
dependent device drivers are packaged in the same fashion. The GEN command is a 
specialized linkage editor which may be used to combine the desired combination of 
modules into an executable version of TurboOOS configured with the desired set of 
functions and device drivers. The GEN command also includes a symbolic patch 
facility which may be used to alter a variety of operating system parameters. 

Section 2 describes each functional module of TurboOOS in detail, illustrates how 
these modules can be combined in various configurations, and provides step-by-step 
system generation procedures* 

Tmplgmgntaring Driver Mfldllka 


TurboOOS has been designed to run on any ZSO-based microcomputer with at least 
48K of RAM, a random-access mass storage device, and a full-duplex character- 
oriented console device. The functional modules of TurboOOS are not dependent 
upon the specific peripheral devices to be used. Rather, a set of hardware-dependent 
device driver modules must be included in each TurboOOS configuration in order to 
adapt the operating system to the specific hardware environment. 
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Typical hardware-dependent device driver modules include? 

o Console driver 
o Printer driver 
o Disk driver 
o Network interlace driver 
o Real-time dock driver 
o Communications driver 

Although Software 2000 Inc* can supply TurboOOS pre-configured for certain specific 
hardware configurations,, most OEMs and many dealers and end-users will want to 
implement their own hardware-dependent drivers. Driver modules may be readily 
written by any competant assembly-language programmer, using a relocating 230 
assembler such as Digital Research's RMAC, Microsoft's MACRO-30, or Phoenix 
Software Associates' PASM. Section 3 provides detailed instructions to programmers 
for implementing such driver modules, and the Appendix includes assembly listings of 
various sample drivers* 

Licensing Requirements 


TurboDOS is a proprietary software product of Software 2000 Inc- TurboDOS may be 
used only after the user has paid the required license fee, signed a copy of the 
TurboDOS software license agreement, and returned the signed agreement to Software 
2000 Inc- Then it may be used only in strict conformance with the terms of the 
software license* Each TurboDOS software license agreement must be filled-out and 
signed by the end-user (not by an OEM or dealer on his customer's behalf). 

Each software license permits the use of TurboDOS only on one specific computer 
system identified by make, model and serial number. A separate license fee must be 
paid and a separate license signed for each computer system on which TurboDOS Is 
used* Network slave computers which are also capable of stand-alone operation 
under TurboDOS must each be licensed separately, but slave computers which cannot 
be used stand-alone (e.g., because they- have no mass storage) do not. 

Software 2000 Inc. intends to Initiate vigorous legal action against anyone who uses or 
reproduces TurboDOS software in a manner which is not in strict conformance with 
the terms of the TurboDOS software license agreement. 
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Each copy of TurboDOS is magnetically serialized with a unique serial, number in 
order to facilitate tracing of unlicensed copies of TurboDOS. 

Each relocatable TurboDOS module which la distributed to a de al er or end-user is. 
magnetically serialized with a unique serial number. The serial number consists of 
two components: an origin number (which identifies the Issuing OEM) and a unit 
number (which uniquely identifies each copy of TurboDOS Issued by that OEM). The 
GEN command verifies that ail functional modules which make up a TurboDOS 
configuration are serialized, consistently, and magnetically serializes the resulting 
executable version of TurboDOS accordingly. 

Each relocatable TurboDOS module which is distributed to an OEM is partially 
serialized with an origin number only. Each OEM is provided with a SERIAL 
command which must be used to add a unique unit number to the relocatable modules 
of each copy of TurboDOS issued by that OEM. The GEN command will not accept 
partially serialized modules that have not been uniquely serialized by the OEM. 
Conversely, the SERIAL command will not re-serialize modules which have already 
been fully serialized. 

OEM. Responsibilities 

Each OEM is provided with a master copy of TurboDOS relocatable modules and 
command processors on diskette. An OEM is authorized to reproduce and distribute 
copies of TurboDOS to dealers and end-users for use on specifically authorized 
hardware configurations manufactured or distributed by the OEM. The OEM is 
required to serialize each copy of TurboDOS with a unique sequential magnetic serial 
number, and to register each serial number promptly by returning a registration card 
to Software 2000 Inc. This registration requirement for OEMs Is in addition to (not 
in lieu of) the requirement for licensing of each end-user. 

Each OEM is provided with a master copy of TurboDOS documentation in both 
camera-ready form and in ASCII files on diskette. The OEM is responsible for 
reproducing the documentation and providing it with each copy of TurboDOS issued by 
that OEM. 

An OEM must require a dealer to sign the TurboDOS dealer agreement and return it 
to Software 2000 Inc. before the OEM may issue copies of TurboDOS to that dealer. 
An OEM must require an end-user to sign the TurboDOS software license and return 
it to Software 2000 Inc. before the OEM may issue a copy of TurboDOS directly to 
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that end-user* 

Dealer Responsibilities 

A TurboDOS dealer is permitted to purchase individuai serialized copies of TurboDOS 
software and documentation from Software 2000 Inc. or from an authorized OEM,, and 
to resell them to end-userc Dealers are not authorized to make copies of TurboDOS 
software or documentation for any purpose whatever. 

A TurboDOS dealer must require each end-user to sign the TurboDOS software license 
and return it to Software 2000 Inc before issuing a copy of TurboDOS software or 
documentation to the end-user. 

TurboDOS. Support, 

Software 2000 maintains a telephone "hot-line* to provide technical assistance in the 
use of TurboDOS to its customers* OEMs and dealers should feel free to take 
advantage of this service whenever technical questions arise concerning the use or 
configuration of TurboDOS* 

It is the responsibility of each OEM and dealer to provide technical support to its 
end-user customers. Software 2000 cannot assist end-users directly. Where 
exceptional circumstances seem to require direct contact between Software 2000 
technical personnel and an end-user, this must be handled strictly by prior 
arrangement with Software 2000 by the OEM or dealer. 
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SYSTE.M GENERATION 

TurboDOS is. a modular operating system consisting of more than 40 separate 
functional modules. These modules are "building blocks" which can be combined in 
various ways to produce a family of compatible operating systems. TurboOOS 
configurations include single-task,, spooling, time-sharing and networking, with 
numerous subtle variations possible in each of these broad categories. This section 
describes each functional module of TurboOOS in detail, illustrates how these modules 
can be combined in various configurations, and provides step-by-step system 
generation procedures. 

Functional modules of TurboOOS are distributed in relocatable form. Hardware- 
dependent device drivers are packaged in the same fashion. The GEN command 
processor is a specialized linkage editor which may be used to bind together the 
desired combination of modules into an executable version of TurboOOS configured 
with the desired set of functions and device drivers. GEN also includes a symbolic 
patch facility which may be used to alter a variety of operating system parameters. 

To simplify the the system generation process, the most commonly used combinations 
of TurboOOS functional modules are pre-packaged into several standard 
configurations. Most requirements for TurboOOS can be satisfied by linking the 
appropriate standard package together with the requisite hardware-dependent drivers. 
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Module. Hierarchy 

The flow diagram on the facing page illustrates the functional inter-relationship of 
TurboOOS modules^ As the diagram shows,, the software elements of TurboDOS can 
be viewed as a. three-level hierarchy* 

The highest level is known as the "process" level* TurboOOS can support many 
concurrent processes at this level* and can share the resources of the local computer 
among them* There are active processes for users who are executing commands 
and/or transient programs on the local computer. There are also processes for users 
who are running on remote computers but making network requests of the local 
computer* There are processes to support de-spooling an each local printer. Finally* 
there is a pro ce ss which periodically causes buffered disk records to be flushed (Let* 
written out) ta disk* 

The intermediate level is known as the "kernel" level* The kernel supports the 
various numbered TurboDOS functions (more than 80 of them), and controls the 
sharing of microcomputer resources such as processor time, memory, peripheral 
devices* and disk files* Processes make requests of the kernel through a single 
entrypoint (OSNTRY) which decodes each function by number and invokes the 
appropriate module in the kernel* 

The lowest level is known as the "driver" level, and contains all of the device^ 
dependent drivers necessary to interface TurboDOS to a particular configuration of 
microcomputer hardware. Drivers must be provided for each printer, console* disk 
controller* and network interface* A driver is also required for the real-time clock 
or other periodic interrupt source (used for time-slicing among processes and for 
timing of delays). TurboDOS operates most efficiently with interrupt-driven, 
buffered or DMA-type devices* but can also work satisfactorily with polled and 
programmed-I/O devices* 

The TurboDOS loader OSLOAD.COM is a special program which contains an 
abbreviated version of the kernel and drivers. Its purpose is to load the full 
operating system into memory at each system start-up. 

All TurboDOS process-level and kemei-ievei modules permit re-entrant execution in 
multi-process situations. Most driver-level modules are not re-entrantiy coded* and 
must utilize a mutual-exclusion mechanism to prevent re-entrant execution. 
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Preggaa»LgveI Modiilgf 


LCLUSR — Supports a transient program area f or a user of the local microcomputer* 
In multi-user configurations, there is a separate re-entrant instance of the LCLU5R 
process for each local user* This module may be omitted from a network master 
configuration where only remote (Lev slave) users are desired* 

LCLTBI* — Local user initialization tables. 

CliOINT — Command interpreter routine called by LCLU5R to process local user 
commands and multi-command strings. 

AUTLOD — Automatic program load routine called by LCLUSR to process 
COLDSTRT.AUT and WARMSTRT.AUT files if they are present* 

SGLUSR — Buffer flushing routine called by LCLUSR to flush and unlink ail disk 
buffers at every console input* Included in single-user configurations only. 

AUTLOG — Automatic log-on routine called by LCLUSR to automatically log-on the 
local user in configurations where logon/logoff security is not desired* To activate 
this feature, use the symbolic patch facility to patch the public symbol AUTUSR to 
the desired user number, with the sign-bit set for a privileged log-on (typically 
AUTUSR = 80). 

NETSVC — Network service process which receives and services network requests 
from slave microcomputers. In network master configurations, there is a separate 
re-entrant instance of the NETSVC process for each attached slave. 

SLYTBL — Table which controls down-loading of network slaves. 

MSGFMT — Network message format tables used by NETSVC and NETREQ modules. 

OSPOOL — De-spool process which supports printing of spooled print jobs concurrent 
with other system activities. In multi-printer configurations, there is a separate re¬ 
entrant instance of the DSPOOL process for each printer. 

FLUSHR — Buffer flusher process which causes memory-resident disk buffers to be 
flushed (i.e., written out) to disk periodically. Not required in single-user 
configurations in which SGLUSR is present. 
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OSNTRY — Common kernel entrypoint which decodes each function by number and 
invokes the appropriate module in the kernel* 

FILMGR — File manager which processes requests involving local files* Not required 
in slave configurations which lack local disk storage* 

FILSUP — File support routines required by FILMGR* 

FULLOK — Multi-user file interlock routines called by FILMGR* Not required in 
single-user configurations* 

FFOAKGR — FIFO management routines called by FILLOK* Not required in single- 
user configurations* 

DEYLOK — Multi-user device interlock routines called by FILMGR* Not required in 
single-user configurations* 

FASLOD — Program load optimizer routine called by FILMGR. 

NORLOO — Non-optimized program load routine which may be used instead of 
FASLOO when memory space is at a premium* 

BUFMGR — Buffer manager called by FILMGR. It maintains a pool of memory- 
resident record buffers used for all record-oriented access to local disk storage. 

DSKMGR — Disk manager called by BUFMGR and FASLOO to perform physical 
accesses to local disk storage. 

D5KTBL — Table of disk driver entrypoints and drive-letter-to-disk-number 
equivalences. 
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NONFIL. — Non-file request manager which handles kernel requests which are not 
file-oriented* 

SGLLOG — Optional module which may be included in multi-user configurations to 
prevent two or more non-piivileged users from logging-on to the same user number 
concurrently. 

CONMGR — Console manager which handles local console input/output. 

CONTBL- — Table of console driver entrypoints. 

DOMGR — DO-file manager which handies activation at DO-files. When a OO-fiie 
is active,, this module is called by CONMGR to satisfy console input requests from 
the DO-file.' 

INPLN — Console input line editor used for buffered console input (function 10), and 
required by CMDINT. 

LSTMGR — List manager which handles local printed output. 

LSTTBL — Table of printer driver entrypoints. 

SPOOLR — Spooler routine which diverts print output to spool files when the spooler 
is activated. 

COMMGR — Comm channel manager which handies the communications channel. 

NETREQ — Network request manager which passes appropriate kernel requests to the 
network to be satisfied by a network master. Required in network slave 
configurations. 

M5GFMT — Network message format tables used by NETSVC and NETREQ modules. 
Required in both master and slave network configurations. 

NETTBL — Table of network driver entrypoints. 

RTCMGR — Real-time clock manager which maintains system date and time. 
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DSPCHR — Multi-process dispatcher which controls the sharing of locaL processor 
time among multiple competing processes. 

DSPSGJL — Null dispatcher used ae an alternative to DSPCHR when only one process 
is required (e^. in OSLOAD.COM and in minimal single-user configurations without 
spooling). 

ME1MIGR — Memory manager which controls the dynamic allocation and d e allocation 
of memory segments. 

COM5UB — Common subroutines required in all configurations. 

SYSNIT — System initialization routine which is executed at system start-up. 

PATCH — Optional module consisting of 64- bytes of zeroes which may be included to 
provide space for any required operating system patches. 


Uninmi 






RTCNUL — Null real-time dock driver for use in configurations in which there is no 
periodic interrupt source. 

CONREM — Remote console driver for network master to allow access from slave 
consoles by means of the MASTER command. 
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Hardware-Dependent- Driver-Level Modules 

Driver modules are hardware-dependent, and may vary significantly from one 
TurboDOS implementation to another. In general, the fallowing: drivers are required 
as a minim umt 

CONDRY — Console driver allows character-by-character input from a console 
keyboard and output to a console display. TurboDOS supports multiple console 
' drivers. 

LSTDRY — Printer driver allows character-by-character output to a hardcopy 
peripheral. TurboDOS supports multiple printer drivers. 

COliDRY ~ Comm, channel driver allows character-by-character input and output 
over one or more communications channels. 

DSKD&Y — Disk controller driver allows input and output of physical-records cn a 
random-access mass storage device (usually flexible or hard disk). TurboDOS supports 
multiple disk controller drivers,, each of which may support multiple drives. 

NETDRY — Network interface driver allows sending and receiving messages to or 
from a remote microcomputer. TurboDOS supports multiple network interface 
drivers, each of which may communicate with multiple remote computers. 

RTCDRY — Real-time clock driver services interrupts from a periodic interrupt 
source, used for time-slicing, delay measurement, and updating the system date and 
time. 

HD ▼ NIT — Hardware initialization routine called by SYS NTT. This module usually 
consists of calls to initialization entrypoints in other drivers. 

Standard Con-Hytirations 

To simplify the the system generation process, the most commonly used combinations 
of TurboDOS functional modules are pre-packaged into the standard configurations 
shown in the table on the facing page: STDLOADR, STDSINGL, STDSPOOL, 
STDMASTR and STDSLAVE. Most requirements for TurboDOS can be satisfied by 
linking the appropriate standard package together with the requisite driver modules. 
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Approx. 
Module, si zs. KO 

O/S Loader 
STDLOADR 

Single User 
STDSINGL 

Single User 
w/Spooling 
STDS POOL 

Network: 

Master 

Network 

Slave 

STDSLAVE 


LCLU5R 

3 


LCLUSR 

LCLUSR 

LCLUSR 

LCLUSR 

LCLTBL 

.0 


LCLTBL 

LCLTBL 

LCLTBL 

LCLTBL 

CMDINT 

3 

- 

CMDINT 

CMDINT 

CMDINT 

CMDINT 

AUTLOD 

3. 

- 

AUTLOD 

AUTLOD 

AUTLOD 

AUTLOD 

SGLUSR 

d 

- 

SGLUSR 

SGLUSR 

- 

- 

AUTLOG 

.0 

- 

AUTLOG 

AUTLOG 

- 

- 

NETSVC 

1J. 

• 

• 

- 

NETSVC 

- 

SLVTBL 

.0 

• 

- 

- 

SLVTBL 


□SPOOL 

.4 

• 

• 

DSPOOL 

DSPOOL 


FLUSHR 

.1 

• 

- 

- 

FLUSHR 

• 

OSLO AD 

13 

OSLO AD 

- 

- 

• 

- 

OSNTRY 

3 

• 

OSNTRY 

OSNTRY 

OSNTRY 

OSNTRY 

FILMGR 

13 

FILMGR 

FILMGR 

FILMGR 

FILMGR 


FTLSUP 

2d 

FILSUP 

FILSUP 

FILSUP 

FILSUP 

• 

FILLOK 

£ 


- 

— 

FILLOK 

- 

FFOMGR 

.7 

- 

-■ 

- 

FFOMGR 

- 

DEVLOK 

3 

- 

- 

- 

DEVLOK 

• 

FASLOD 

3 

• 

FASLOD 

FASLOD 

FASLOD 

• 

NORLOD 

d 

• 

- 

. 

- 


BUFMGR 

1.0 

BUFMGR 

BUFMGR 

BUFMGR 

BUFMGR 

• 

DSKMGR 

J 

DSKMGR 

DSKMGR 

DSKMGR 

DSKMGR 

• 

DSKTBL 

.0 

DSKTBL 

DSKTBL 

DSKTBL 

DSKTBL 

DSKTBL 

NONFIL 

3 

- 

NONFIL 

NONFIL 

NONFIL 

NONFIL 

SGLLOG 

d 

- 

- 

- 

• 

- 

CONMGR 

.1 

CONMGR 

CONMGR 

CONMGR 

CONMGR 

CONMGR 

CONTBL 

JO 

CONTBL 

CONTBL 

CONTBL 

CONTBL 

CONTBL 

DOMGR 

J 

• 

DOMGR 

DOMGR 

DOMGR 

DOMGR 

INPLN 

d 

• 

INPLN 

INPLN 

INPLN 

INPLN 

LSTMGR 

d 

- 

LSTMGR 

LSTMGR 

LSTMGR 

LSTMGR 

LSTTBL 

3 

- 

LSTTBL 

LSTTBL 

LSTTBL 

LSTTBL 

SPOOLR 

J 

- 

- 

SPOOLR 

SPOOLR 

- 

COMMGR 

d 

• 

COMMGR 

COMMGR 

COMMGR 

- 

NETREQ 

1.4 

- 

- 

- 

- 

NETREQ 

MSGFMT 

3 

- 

- 

- 

MSGFMT 

MSGFMT 

RTCMGR 

.1 

- 

RTCMGR 

RTCMGR 

RTCMGR 

- 

RTCNUL 

d 

RTCNUL 

— 

— 

- 

RTCNUL 

DSPCHR 

£ 

- 

- 

DSPCHR 

DSPCHR 

- 

DSPSGL 

d 

DSPSGL 

DSPSGL 

- 


DSPSGL 

MEMMGR 

3 

- 

MEMMGR 

MEMMGR 

MEMMGR 

MEMMGR 

COMSUB 

3 

COMSUB 

COMSUB 

COMSUB 

COMSUB 

COMSUB 

SYSNIT 

.1 

- 

SYSNIT 

SYSNIT 

SYSNIT 

SYSNIT 
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To estimate memory requirements for a particular TurboOOS configuration,, it is 
necessary to take into account the combined, size of functional modules (see table on 
previous page), hardware-dependent driver modules, disk buffers and other dynamically 
allocated storage segments. 

Hardware-dependent drivers typically require IK to JK of memory, depending on the 
complexity of the hardware involved. Disit buffer space should be as large as 
possible for optimum performance, especially in a network master. About 4K of disk 
buffer space Is acceptable for a single-user system, although less can be used in a 
pinch. Other dynamic storage usually doesn't exceed IK.. 

The following table gives typical memory requirements of standard TurboOOS 
configurations* 



O/S Loader 
STDLQADR 

Single User 
STOSTNCL 

Single User 
w/Spooiing 
STDSPOOL 

Network 

Master 

STDMASTR 

Network 

Slave 

STDS1AVE 

Functional Modules 

7K 

10K 

UK 

13K 

6K 

Device Drivers 

2K 

2K 

2K 

3K 

IK 

Disk Buffer Space 

4K 

4K 

^K 

16K 

OK 

Dynamic Storage 

±1H 

±1H 

±111 

±1H 

±111 

Total Memory Req*d 

14K 

17K 

12K 

33K 

SK 

TP A (in 64 K system) 

n/a 

47K 

46K 

31K 

56 K 


Typlr-al TurboDOS Memory Requirements 
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tJnldn^ and Loading 

Functional modules of TurboOOS are distributed in relocatable form. Hardware- 
dependent device drivers are packaged in the same fashion. The GEM command 
processor is a specialized linkage editor which may be used to bind together the 
desired combination of modules into an executable version at TurboOOS configured 
with the desired set of functions and device drivers, GEN also includes a symbolic 
patch facility which may be used to alter a variety of operating system parameters. 

To generate a TurboOOS system, the GEN command must be used to create both an 
executable loader OSLOAO.COM and an executable master operating system 
OSMASTE1LSYS. In networking configurations, the GEN command must also be used 
to create a slave operating system OSSLAVE^YS. The GEN command can also be 
used to generate the code for a start-up PROM. 

At system start-up,, the start-up PROM loads the loader program OSLOAO.COM into 
the TPA of the master computer and executes it. OSLOAO loads the master 
operating system OSMASTER.SYS into the topmost portion of memory. In networking 
configurations, the master operating system down-loads the slave operating system 
OS5LAVE.SYS into the slave computers an the network. 
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GEN; Command 

The GEN command is used for TurboDOS system generation. It Jinks a collection at 
r e loca t a b le modules together Into a single executable file. The command format isr 

GEN- filename! filenameZ ,'options 

where "filename 1" specifies the name of the configuration file (type .GEN) and 
parameter file (type .PAR) to be used, and "filename!" specifies the name of the 
executable file (normally type .COM or .SYS) to be created.. If "filename!” is 
omitted: from the command line, then "filename!" is used for the executable file and 
should include an explicit file type (.COM or .SYS). 

If the configuration file (type .GEN) is found, it must contain the list of relocatable 
files to be linked together. If the configuration file is not founds then the GEN 
command operates in an interactive mode, reading successive directives from the 
console until terminated by a null directive. The format at each directive (or each 
line of the configuration file) is: 

reifilel, relfile!, relfileN 

The GEN command links together all of the specified modules, a two-pass process 
which displays the name of each module as it is encountered. At the end of the 
second pass, the GEN command looks for a parameter file (type .PAR) and processes 
it (if found). Finally, the executable file is written out to disk.. 

Each relocatable TurboDOS module is magnetically serialized with a unique serial 
number. The serial number consists of two components: an origin number (which 
identifies the issuing OEM) and a unit number (which uniquely identifies each copy of 
TurboDOS issued by that OEM). The GEN command verifies that ail modules to be 
linked are serialized consistently, and magnetically serializes the resulting executable 
file accordingly. 

The "joptions" argument may contain* either ";Lxxxx" or "jUxxxx" to define either the 
lower or upper boundary of the executable program ("xxxx" is a hexadecimal memory 
address). The default boundary is ";L01Q0 n if the output file is of type .COM, and 
"jUFFFF" if the output file is of type .SYS. 

The "joptions" argument may also contain ";X" to display undefined symbol references 
(quite normal in TurboDOS system generation), "jM" to print a load map on the 
printer, and ";S” to print a full symbol table cn the printer. 
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Examples 


The following example usee the GEN command to link the modules listed in 
OSMASTER.GEN and the patch parameters in OSMASTER.PAR, creating the 
executable file OSMASTER.SYS. 

OAlCEN OSMASTERJiYS tUBFFF 

* 5TDSINGL, CONI92, LSTCTS, SP442 

* SER480, BRT4420, RTC442 

* DSK401, DSKFMT8, HDWNTT 
Pass 1» 


LCLUSR 

LCLTBL 

CMDINT 

AUTLOD 

SGLUSR 

PRVUSR 

OSNTRY 

FILMGR 

FILSUP 

FASLOD 

BUFMGR 

DSKMGR 

DSKTBL 

NONFIL 

CONMGR 

CONTBL 

DOMGR 

•INPLN 

LSTMCR 

LSTTBL 

COMMGR 

RTCMGR 

DSPSGL 

MEMMGR 

COMSUB 

SYSNIT 

CONI 92 

LSTCTS 

SP442 

SER480 

BRT442 

RTC442 

DSK401 

DSKFMT 

HD W NIT 


Pass 2. 
LCLUSR 

LCLTBL 

CMDINT 

AUTLOD 

SGLUSR 

PRYUSR 

OSNTRY 

FILMGR 

FILSUP 

FASLOD 

BUFMGR 

DSKMGR 

DSKTBL 

NONFIL 

CONMGR 

CONTBL 

DOMGR 

INPLN 

LSTMGR 

LSTTBL 

COMMGR 

RTCMGR 

DSPSGL 

MEMMGR 

COMSUB 

SYSNIT 

CON192 

LSTCTS 

SP442 

SER480 

BRT442 

RTC442 

DSK401 

DSKFMT 

HD W NIT 



Processing parameter files 
AUTLOG a 80 
NMBUFS a 8 
Writing output file. 

OA} 
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Symbolic Patch Fagill*y 

The GEN command supports a symbolic patch facility which may be used to override 
various- operating system parameters as. well as to effect necessary software 
corrections*. Symbolic patches must be stored in a parameter file (type .PAR), which 
may be built using any ordinary file editor* The format of each .PAR file entry iss 

location * valuei, vaiue2 r valueN comments 

where "valuei" through "valueN" are to be loaded into consecutive memory locations 
starting with "location"* 


The argument "location"' may be a public symbol name, a hexadecimal number, or an 
expression composed of names and hexadecimal numbers connected by "+•" or 
Hexadecimal numbers must begin with a decimal digit (e.g., "OFFFF")* The location 
expression must be followed by an equal-sign character. 

The arguments "valuei" through "vaiueN" may be expressions, (as defined above) or 
quoted ASCQ strings, and must be separated by commas. An expression is stored as 
a 16-bit word 11 its value exceeds 255 or if it is enclosed in parentheses; otherwise, 
an expression is stored as an 8-bit byte. A quoted ASCII string may be enclosed by 
either quotes or apostrophes, and is stored as a sequence of 8-bit bytes. Within a 
quoted string, ASCII control characters may be specified by using the circumflex 
(e.g., "~X" denotes CTRL-X). 

Example: 

CLBLEN = 9D 
NMBUFS=4 
BUFSIZ = 3 
CBFCHR * "*F" 

CLSCHR = "\" 

ATNCHR = "~S n 
RE5CHR = "~Q" 

ABTCHR = "*C" 

DSKAST * 00,01,02,03,10,11,12,13,20,21,22^3,30,31,32,33 
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TurboOOS Patch Points 

Parameters ut TurboOOS which, may be useful to patch include the following, shown 
with their standard values 

Tn AUTLOD Module 

COLOFN » 0,"COLDSTRTAUT* 

Cold-start autoload file (12 byteal 
WARMFN * 0,"WARMSTRTAUT» 




Warm-start autoload file (12 bytes) 

Tn ATITLnn Moduli*- 


AUTUSR 

a OFF 

Automatic log-on user number (sign-bit if privileged) 

In BUI:MGR Module; 


BUFSIZ 

= 3 

Default buffer size (0=123, 1=256, 2=512^ 7=i6K) 

NMBUFS 

a 4- 

Default number of buffers 

Tn CMDTNT Modulo- 


CLBLEN 

a 90 

Command line buffer length 

CLSCHR 

a "\» 

Command line separator character 

In CQNTBL. Module; 


ATNCHR 

a "*S" 

Attention character 

ATNBEL 

a n-G" 

Attention-received response 

RJESCHR 

a "*Q" 

Resume character (attention response) 

ABTCHR 

a "*C" 

Abort character (attention response) 

ECOCHR 

_ lt—pn 

Echo character (attention response) 

PRTCHR 

a "* 1 ” 

End-print character (attention response) 

CONAST 

a 00 

Console assignment table 

CONTBL 

a CONDRA 

Console driver table 

InJSSKIBL 

Module; . 


DSKAST 

= 00,01,02,03,10,11,1243,20,21,22,23,30,31,32,33 



Disk assignment table (16 bytes) 

DSKTBL 

= DSKDRA,DSKDRB,DSKDRC,DSKDRD 



Disk driver table (4 words) 

Tn FLUSHR 

Modules 


BFLDLY 

= (012C) 

Buffer flush delay in ticks (no flush if zero) 
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la 1CLTBL Module? 
SPLMOD = i 
QUEPTR = 1 
SPLDRV = OFF 


Default spool mode 

Default spool queue assignment 

Default spool drive OO^OF (system drive if OFF) 


Tn LCLUSR Module 

MEMRES * (0100) Reserved memory between O/S and TPA 

SO MSG = 'Turbo DOS Ijcc, Copyright (C) 1981, Software 2000, Inc. $ w 

Sign-on message (36 bytes, must end with "$") 




LSTAST 

LSTTBL 

NMBQUE 

DSPPAT 

NMBPTR 

LSTREM 

EOPCHR 


00,10,20,30 

List assignment table (4- bytes) 
LSTDRA,LSTDRB,LSTDRC,LSTDRD 

List driver table (4- words) 

1 Number of de-spool queues 

I^m^L De-spool printer assignment table (16 bytes) 

1 Number of printers 

OFF Default print site (0=locai, OFF=remote) 

0 End-of-print character (if nonzero) 


Tn MEMMCR Module! 

MEMBLL = (1103) Memory base lower limit (standard assures 4K TPA) 


In-NQMEH. Modules 

LOGUSR = IF User number for log-off (standard is 31) 


Tn OSLO AD Module; 

LOADFN = 0,"OSMASTERSYS” 

Default drive and filename for OSLOAD (12 bytes) 
MEMTOP * (0FFFF) Top limit of OSLOAD RAM test (don't test if zero) 


In. SLY1B L Module: 

NMBSLV = 2 Number of network slaves 

SLVTBL = " " OSSLAVEX.SYS suffix letters (16 bytes) 
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Explanatory Notes 

The patch "AUTUSR = SO" should generally be included in single-user configurations 
to cause an automatic privileged log-on to user number zero* 

The disk assignment table DSKA5T contains an array of byte entries corresponding to 
drives A...P. The high-order nibble of each entry specifies which disk driver (in 
D5KTBL) to use, while the low order nibble is a drive number passed to the selected 
driver* In network slaves, the high-order nibble should be set to U to indicate a 
remote drive* 

The list assignment table 1ST AST contains an array of byte entries corresponding to 
printers AThe high-order nibble of each entry specifies which printer driver (in 
LSTTBL) to use, while the low order nibble is a printer number passed to the selected 
driver in the B-register» The console assignment table CONAST works, the same way. 

If EOPCHR is patched to any non-null ASCII character, then the presence of that 
character in the print output stream will automatically signal an end-of-print-job 
condition. 

The slave suffix table SLVTBL contains an array of byte entries corresponding to 
slaves A...P. Each slave operating system is down-loaded from the file 
"OSSLA VEx.5 YS", where "x" is the proper SLVTBL entry. SLVTBL normally contains 
ail spaces, so that ail slaves are down-loaded from "OSSLAVE.SYS”. 
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Stejwhv-St»p EraoaiUCfc lac totem Generation 

To generate a new version of TurboOOS, the following steps may be followed: 

1* Bring up a single-user operating system, either CP/M or (preferably) a previous 
version of TurboOOS. If you are using CP/M, all diskettes will have to be in 
CP/M-compatible format (one-sided, single-density, 123-byte sector size). 

2. Make a working copy of your TurboOOS distribution diskette. Oo not use the 
original diskette (in case something goes wrong). Insert the working diskette in a 
convenient disk drive. 

3. Using an editor, create or revise the file OSMASTER.GEN containing the names 
of the relocatable files to be linked together. In most cases, this will consist of 
the appropriate STDxxxxx file plus all required device drivers. 

4. Using an editor, create or revise the file OSMASTER.PAR containing any required 
patches. This may be omitted if no patches are desired. 

5. Using the command "GEN OSMASTER.SYS", generate an executable system file. 
If the target machine has less than 64K of memory installed, don’t forget to 
specify a "jUxxxx" option on the GEN command. 

6. If you need to generate a new O/S loader, create or revise the files 
OSLOAD.GEN and OSLOAO.PAR, and use the command "GEN OSLOAD.COM" to 
generate an executable loader file. 

6. If you need to generate a new slave O/S for a networking configuration, create or 
revise the files OSSLAVE.GEN and OSSLAVEJPAR, and use the command "GEN 
OSSLAVE^YS" to generate an executable down-load file. 

7. To test the newly generated system, log onto your working diskette, eject all 
other diskettes, and enter the command "OSLOAD". If the new system fails to 
come up or to function properly, you will have to start over at step 1; there is 
most likely an error in one of your .GEN or .PAR files. 
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sputa l Command. 

Each relocatable TurboOOS module which la distributed to an OEM is partially 
serialized with an origin number only. Each OEM is provided with a SERIAL 
command processor which must be used to add a unique unit number to the 
relocatable modules of each copy of TurboOOS issued by that OEM. 

The format of the SERIAL command is: 

SERIAL srcfile dcstfile ;Unnn options 

where "srcfile”, "destfile" and "options" have exactly the same meanings as in the 
COPY command, and "nnn” is the unit number expressed as a decimal integer. The 
SERIAL command works exactly like the COPY command^ except that it has the 
additional function of magnetically serializing JR.EL files. 

The GEN command will not accept partially serialized modules that have not been 
uniquely serialized by the OEM* Conversely, the SERIAL command will not re¬ 
serialize modules which have already been fully serialized. 

Example: 

n AKFPTAT A? N 

AsAS5IGN.COM copied to BsASSIGN.COM 


AsUSER.COM copied to BsUSER.COM 
QA} 
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Stcp-hy-Stcp. Procedure ioc OEM. Rc-Diatrihutifln 

To generate a serialized copy of TurboOOS for re-distribution by an OEM to a dealer 

or end-user,, the following, steps, must be followed^ 

1- Assign a unique sequential unit number for this-copy of Turbo DOS, and register it 
promptly by filling-out. a serial number registration card and mailing it to 
Software 2000 Inc. 

2. Initialize a new diskette, and label it with the TurboOOS version number, the 
origin and unit numbers, and the required notice "Copyright (C) 1981, Software 
2000 Inc.". 

3. Using the SERIAL, command, copy and serialize the following files from your OEM 
redistribution master to the new diskettes the appropriate STDxxxxx files, ail 
necessary driver modules, and plus .COM files for AUTOLOAD, BACKUP, 
BUFFERS, CHANGE, COPY, DATE, DELETE, DIR, DO, DRIVE, DUMP, 
ERASEDIR, FIFO, FDCMAP, FORMAT, GEN, LABEL, LOGOFF, LOGON, MASTER, 
PRINT, PRINTER, QUEUE, RECEIVE, RENAME, RESET, SEND, SET, SHOW, 
TYPE, USER, and VERIFY- Be certain that the new diskette docs not contain 
unserialized modules or SER1AL.COM. 

4. Using the new serialized diskette, generate an executable loader and operating 
system, using the system generation procedure described earlier in this section. 

5. In addition to the serialized diskette, the dealer or end-user should receive a 
TurboDOS start-up PROM and copies of the User's Guide and Configuration Guide. 
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tVtTWm TUPT.P URNT A TTft M 

TurboOOS has been designed to run on any Z2Q-based microcomputer with at least 
4-8 K of RAM, a random-access mass storage device* and a full-duplex character- 
oriented console device- The process-level and kernel-level modules of TurboOOS do 
not depend upon the specific peripheral devices to be used- Rather, a set of 
hardware-dependent device driver modules must be included in each TurboOOS 
configuration in order to adapt the operating system to a particular hardware 
environment- Device drivers are typically required for consoles, printers, disk 
controllers, network interfaces, real-time clock, and communications. 

Although Software 2000 Inc. can supply TurboOOS pre-configured for certain specific 
hardware configurations, most OEMs and many dealers and end-users will want to 
implement their own hardware-dependent drivers. Driver modules may be readily 
written by any programmer competant in Z20 assembly-language. This section 
provides detailed instructions to programmers for implementing such driver modules, 
and the Appendix Includes assembly listings of various sample drivers^. 

ftsarmblftr Requirements 

Drivers must be written using a Z20 assembler capable of producing relocatable 
modules with symbolic linkage information in the industry-standard Microsoft 
relocatable module format. Both Microsoft's MACRO-80 and Digital Research's 
RMAC assemblers have these characteristics, and are well suited for implementing 
TurboDOS drivers. 

Phoenix Software Associates' (PSA) assembler (formerly TDL and Xitan) is an 
excellent relocatable Z20 assembler, but it produces object modules in a non-standard 
format. To alleviate this problem, a conversion utility (RELCYT.COM) is available 
from Software 2000 Inc. for converting PSA-format object modules to standard 
Microsoft format. The command 

RELCVT filename 

converts the PSA-format .REL file specified by "filename" into standard Microsoft 
.REL format. Wherever the characters and appear in names in the PSA- 
format module, they are replaced by the characters "7" and "(§" (respectively) in the 
Microsoft-format module. 
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Programming ronYMtloni 

Assembly-language examples in this section and in the Appendix are all coded for the 
PSA assembler- In the examples^ the name suffix "#"' is used to denote an external 
name that is defined in another modules The label suffix "nP is used to denote a 
public name that is available for reference in other modules* Some assemblers 
require that such names be declared in an EXTERN or PUBLIC statement. Also, the 
symbol ”•* represents the current location counter value; some assemblers use "$* or 
instead. 


Dynamic Memory Allocation 

The resident portion of TurboDOS resides in the topmost portion of system memory- 
TurboDOS uses a common memory management module (MEMMGR) to provide 
dynamic allocation and de-allocation of memory space required for disk buffers, de- 
spool requests^ file interlocks^ DO-fiie nesting, etc- Dynamic memory segments are 
allocated downward from the base of the TurboDOS resident area, thereby reducing 
the space available for the transient program area (TPA). Deallocated segments are 
concatenated with any neighbors and threaded on a free list- A best-fit algorithm is 
used to reduce memory fragmentations 

Allocation and de-allocation of memory segments is accomplished in this manner: 


LXI 


;get size of requested segment in HL 

CALL 

ALLOC# 

•allocate segment 

ORA 

A 

;was segment allocated successfully? 

3NZ 

ERROR 

jif not, error 

PUSH 

• 

H 

jelse, segment base address in HL 

• 

POP 

H 

jget address of memory segment in HL 

CALL 

DEALOC# 

,'de-ailocate segment 


Note that ALLOC# clears each newly-allocated segment to zeroes. Note also that 
ALLOC# prefixes each dynamic memory segment with a word containing the segment 
length (including the prefix word itself), so that DEALOC# can tell how much 
memory is to be de-ailocated. 
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Sample Interrupt-Driven Device Driver 


The fallowing is a simple device driver for an interrupt-driven serial input device. It 
illustrates the coding techniques described previously; 


MXLOCKt 


; mutual-exclusion interlock semaphore 


.WORD 

I 

{semaphore count (initialized to 11) 


.WORD 

e 

,'semaphore list head forward pointer 

• 

.WORD 

«-2 

;semaphore list head backward pointer 

EVENT: 



,‘event semaphore 


.WORD 

0 

;semaphore count 


.WORD 

e- 

semaphore list forward pointer 

• 

.WORD 

.-2 

{semaphore list backward pointer 

CHRSAV: 

.BYTE 

0 

{input character save location 

DRIVER: 

LXI 

H, MX LOCK 

;get interlock semaphore address 


CALL 

WAIT# 

{wait if driver is already in use 


El 


{ensure that interrupts are enabled 


LXI 

H^VENT 

{get event semaphore 


CALL 

WAIT# 

{wait for event to occur 


LDA 

CHRSAV 

{get input character 


PUSH 

PSW 

;save on stack 


LXI 

H,MXLOCK 

;get interlock semaphore address 


CALL 

SIGNAL# 

{signal driver no longer in use 


POP 

PSW 

;retum input character in A-register 


RET 


{done 

DEVISR: 

SSPD 

INTSP# 

;save user's stack pointer 


LXI 

SP,INTSTK# 

{set up auxiiliary stack 


PUSH 

PSW 

{save all registers 


PUSH 

B 



PUSH 

D 



PUSH 

H 



IN 

STATUS 

{get peripheral status 


ANI 

MASK 

;is input character available? 


JRZ- 

~X 

{if not, exit 


IN 

DATA 

{else, get input character 


STA 

CHRSAV 

jsave input character 


LXI 

H,EVENT 

{get event semaphore address 


CALL 

SIGNAL# 

{signal that event has occured 

..X: 

POP 

H 

{restore all registers 


POP 

D 



POP 

B 



POP 

PSW 



LSPD 

INTSP# 

{restore user's stack pointer 


IMP 

ISRXIT# 

{exit through dispacher 
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Re-fintrancy and Mutual Exclusion 

Ail TurboOOS process-level and kernel-level modules permit re-entrant execution by 
multiple processes. However, most driver-level modules are not coded re-entrantiy 
(since most peripheral devices can only do one thing at a time). Consequently, most 
drivers must make use of a mutual-exclusion interlock to prevent re-entrant 
execution. 


Using the TurboOOS event semaphore mechanism, such a mutual-exclusion interlock 
can be implemented very simply in the following manner: 


MXLOCK: 


DRIVER: 


.WORD 1 
.WORD . 

.WORD -2 

LXI H^iXLOCK 

CALL WAIT# 


LXI H, MXLOCK 

CALL SIGNAL# 
RET 


;mutual-exclusion Interlock semaphore 
^semaphore count (initialized to 11) 
jsemajriiore list head forward pointer 
,'semaphore list head backward pointer 

;get interlock semaphore address 
;wait If driver Is already in use 


jget interlock semaphore address 
;signal driver no longer in use 
jdone 


Note that the interlock semaphore count-word must be initialized to 1 (instead of 0) 
for this scheme to work properly. 
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Poll Routines 


Peripheral devices which are not capable of interrupting the processor must be polled 
by the device driver* To facilitate this r the TurboOOS dispatcher maintains a 
threaded list of poll routines,, and execute* the routines cn the list at every dispatch. 
The function of each poll routine is to check the status of its peripheral device, and 
to signal the occurrence of an event (e*g^ character available, operation complete) 
when it occurs. The routine LNKPOL#^ can be called at any time to link a new poll 
routine onto the poll list* 


The only tricky thing about a poll routine is that it must be coded in such a fashion 
that it will not signal the occurrence a particular event more than once. This can be 
accomplished in various ways, but a most efficient method is for the poll routine to 
simply unlink itself from the dispatcher's poll list as soon as it has signalled the 
occurrence of an event* This can be accomplished in the following manner: 


EVENT: 



.WORD 

0- 


•WORD 

•> 


.WORD 

.-2 


e> 

LXI 

D,POLNOD 


CALL 

LNKPOL# 


CALL 

POLRTN 


LXI 

H,EVENT 


CALI* 

• 

WAIT# 

POLNOD: 

• 

.WORD 

0 


.WORD 

0 

POLRTN: 

IN 

STATUS 


ANI 

R Z 

MASK 


LXI 

H^VENT 


CALL 

SIGNAL# 


LXI 

H,POLNOD 


CALL 

RET 

UNLINK# 


,‘event semaphore 
{semaphore count 
{semaphore list forward pointer 
{semaphore- list backward pointer 


;get poll routine node address 
{link poll routine onto poll list 
;pre-test peripheral status (optional) 
{get event semaphore address 
jwait until event occurs 


{poll routine node linkage 

;get peripheral status 

{is input character available? 

;if not, exit 

;else, get event semaphore address 
{signal that event has occurred 
{get poll routine node address 
;unllnk poll routine from poll list 
{done 


3-8 



Configuration Guide to TurboOOS 
Copyright (C) 1981 by Software 2000 Inc. 

System Implementation 


Interrupt Service Routines 

The TurboOOS dispatching mechanism is especially efficient when used with interrupt* 
driven peripheral devices. In most situations,, the interrupt service routine simply 
calls SIGNAL# to indicate that the event associated with the interrupt has occurred. 


Service routines for low-frequency interrupts (no more than 100 times per second) 
should mat by means of the standard interrupt service routine exit ISRXIT# in order 
to provide frequent time-slicing of processes. Service routines for high-frequency 
interrupts (occurring more than 100 times per second) should simply enable interrupts 
and return, in order to avoid excessive dispatch overhead* 

It is good programming practice for interrupt service routines to set up an auxiliary 
stack? in order to avoid the possibility of overflowing the stack area of a user's 
program. TurboOOS provides a standard interrupt stack area (INTSTK#) and stack 
pointer save location (INTSP#) for this purpose. 

A simple interrupt service routine for a low-frequency interrupt could be coded in 
this manner? 


DEV1SR: 


SSPD 

INTSP# 

;save user's stack pointer 

LXI 

SP^NTSTK# 

;set up auxilliary stack 

PUSH 

PSW 

•save ail registers 

PUSH 

B 


PUSH 

D 


PUSH 

H 


IN 

STATUS 

{reset the interrupt condition 

LXI 

H^EVENT 

;get event semaphore address 

CALL 

SIGNAL# 

;signai that event has oc cured 

POP 

H 

{restore ail registers 

POP 

D 


POP 

B 


POP 

PSW 


LSPD 

INTSP# 

{restore user's stack pointer 

JMP 

ISRXIT# 

;exit through dispacher 


In more complex interrupt situations, it may be necessary for an interrupt service 
routine to determine which of several possible events occurred, and to signal one of 
several alternative semaphores. Sometimes it may be desirable for an interrupt 
service routine to perform a data buffering function (e.g., to provide keyboard type- 
ahead). 
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II the occurrence of an event is. signalled but no process is waiting for it, then 
SIGNALS simply increments the count-word to a positive value* Thus* a positive 
count N signifies that there have bear N occurrences of the event for which no 
process was waiting'* In this case, the next N calls to WAIT# err that semaphore will 
return immediately without waiting* 

Sometimes it is necessary for a process to wait for a specific time interval (e^j.* 
head-settle delay, carriage-return delay) rather than for the occurrence of a specific 
event* The TurboOOS dispa t cher provides a delay facility (DELAY#) which permits 
other processes to use the microprocessor while one process is waiting for such a 
time interval to expire* Delay intervals are measured in an implementation-defined 
unit called a "tick"? in most implementations, ticks occur 50 or 60 times per second* 
Delays may be coded in the following manner: 


•- 

LXT Hf6 jget number of ticks to delay 

CALL DELAY# jdeiay for specified interval 


A delay of zero ticks may be specified to effect a very short delay, or simply to 
relinquish the processor to other processes on a "courtesy" basis. 

For best performance, all driver delays should be accomplished by means at WAIT# 
(wait for an event to be signalled) or DELAY# (wait for a given interval of time to 
elapse). Drivers should never be coded to spin in a wait loop* 
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Dispatching, 

TurboDOS incorporates an extremely efficient and flexible mechanism for dispatching 
the Z80 micr o pro c essor among various competing processes. In writing device drivers 
for TurboDOS, the programmer must take extreme care to use the dispatcher 
correctly in order to attain maximum performance. 

Basically, the dispatcher enables one process to wait for some event (e-g., character 
available, operation complete) while allowing other processes to utilize the 
microprocessor. For each such event, the programmer must define a three-word 
structure called an "event semaphore", A semaphore consists of a count-word 
followed by a two-word list head. The count-word is used by the dispacher to keep 
track of the status of the event,, while the list head defines a threaded list of 
processes waiting for the event. 


There are two fundamental operations which affect an event semaphores waiting for 
the event to occur (WATT#), and signalling that the event has occurred (SIGNAL#). 
These are coded in the following manners 


EVENT: 

.WORD 0 
.WORD . 
.WORD .-2 


{event semaphore 
,-semaphore count 
{semaphore list forward pointer 
{semaphore list backward pointer 


LXI PREVENT {get event semaphore address 

CALL WAIT# ;wait until event occurs 


# 

LXI H,EVENT ;get event semaphore address 

CALL SIGNAL# {signal that event has occured 

Whenever a process waits on an event semaphore, WAIT# decrements the count-word 
of the semaphore. Thus, a negative count of -N signifies that there are N processes 
waiting for that event to occur. Whenever the occurrence of an event is signalled, 
SIGNAL# increments the count-word of the semaphore and awakens the process that 
has been waiting longest. 
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All dynamic structures in TurboOOS are maintained as threaded lists with 
bidirectional linkages. This technique permits a node to be easily added or deleted 
anywhere In a threaded list without searching. The list head and each list node must 
contain a two-word linkage (forward pointer and backward pointer). 

Manipulation of threaded lists is accomplished in this manner: 

LSTHEDr ;list head (initialized to empty) 

•WORD . ,’forward pointer 

.WORD .-2 ^backward pointer 

LSTNODs jiist node 

.WORD 0 ^forward pointer 

•WORD 0 ;backward pointer 

.5LKB 128 ;node body 


LXX H,LSTHED ;get list head address in HL 

LXI D,LSTNOD jget new node address in DE 

CALL LNKEND# ?link node to end of list 


LXI H^LSTNOO ;get node address In HL 

CALL UNLINK# junlink node from list 


LXI H,LSTHED ;get list head address in HL 

LXI D,LSTNOD ;get new node address in DE 

CALL LNKBEG# jiink node to beginning of list 
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In programming hardware-dependent driver modules, it is frequently necessary to 
include a considerable amount of initialization code which is executed only once (at 
system start-up) and never needed again* Using DEALOC#, the memory space 
occupied by such initialization code can be made available to satisfy subsequent 
dynamic memory requirements* To do this, the code segment must be prefixed with 
a word containing the segment lengths 


•WORD 

LENGTH+2 

length to be de-ailocated 

HD W NIT:: XRA 

• 

A 

jstart of initialization code 

e 

ua 

JMP 

H,HDWNIT 

DEALOC# 

;get beginning of segment 
•de-allocate segment 

LENGTH » 

•-HDWNIT 

length of segment 
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The following is a simple device driver for a polled serial input device* It illustrates 
the coding techniques described previously: 


MXLOCKi 



{ mutual-exclusion interlock semaphore 


.WORD 

1 

^semaphore count (initialized to 11) 


.WORD 

e- 

{semaphore list head forward pointer 

• 

.WORD 

-2 

{semaphore list head backward pointer 

EVENT: 



{event semaphore 


.WORD 

0 

{semaphore count 


.WORD 

e> 

{semaphore list forward pointer 

• 

.WORD 

.-2 

{semaphore list backward painter 

CHR5AV: 

.BYTE 

0 

{input character save location 

DRIVER: 

LXI 

H,MXLOCK 

;get interlock semaphore address 


CALI. 

WAIT# 

{wait if driver is already in use 


LXI 

D,POLNOD 

{get poll routine node address 


CALL 

LNKPOL# 

{Jink pall routine onto poll list 


CALL 

POLRTN 

{pre-test peripheral status (optional) 


LXI 

H^VENT 

{get event semaphore address 


CALL 

WAIT# 

{wait until event occurs 


LDA 

CHRSAV 

{get input character 


PUSH 

PSW 

;save an stack 


LXI 

H,MXLOCK 

;get Interlock semaphore address 


CALL 

SIGNAL# 

{signal driver no longer in use 


POP 

PSW 

{return input character in A-register 


RET 


{done 

POLNOD: 

.WORD 

0 

{poll routine node linkage 


.WORD 

0 


POLRTN: 

IN 

STATUS 

;get peripheral status 


ANI 

MASK 

;is input character available? 


R2 


{if not, exit 


IN 

DATA 

{else, get input character 


STA 

CHRSAV 

{save Input character 


LXI 

PREVENT 

{else, get event semaphore address 


CALL 

SIGNAL# 

{signal that event has occurred 


LXI 

H,POLNOD 

;get poll routine node address 


CALL 

UNUNK# 

{unlink poll routine from poll list 


RET 


{done 
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Driver Interface Spa^fflga-Hnna 

The interface specifications; for various kinds of device drivers are described below* 
Drivers may be packaged, into as many or few separate modules as desired by the 
programmer* In general, it is easier to reconfigure TurboDOS for a wide variety of 
peripheral devices if the driver for each device is packaged as a separate module* 

TurboDOS may be configured with multiple disk, console, printer and network drivers. 
The disk driver entrypoint table refers to disk driver entrypoints DSKDRA#, 
DSKDRB#, DSKDRC#, etc. Each disk driver should be coded with a public 
entrypoint DSKDR@:t (or DSKDR9S:? if PSA assembler and RELCVT are used)* The 
GEN command automatically maps successive definitions of such names by replacing 
the trailing (§ by A, B, C, etc. The same technique should be used for console, 
printer, and network drivers* 

To allow various TurboDOS modules to be included or omitted at will, the GEN 
command automatically resolves all undefined external references to the default 
symbol ?UND?#. The TurboDOS common subroutine module COMSUB contains the 
following stub routiner 

?UND?:r NOP jsingie- or double-length load 

NOP ;af undefined returns zero 

XRA A jcall of undefined returns A=0 

RET ;done 

Thus,, it is always safe to load or call an external name, whether or not it is defined. 

Driver routines must preserve the stack and the index registers X and Y, but may use 
other registers as desired* 

Initialization 

All necessary hardware initialization and interrupt vector setup should be performed 
by an initialization routine that begins with the public entry name HDWNIT::. This 
routine is called by TurboDOS at system start-up with interrupts disabled. The 
hardware initialization procedure must not enable interrupts or make calls to WAIT# 
or DELAY#. In most cases, the HDWNIT:: routine should contain a series erf calls to 
individual driver initialization subroutines. 
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C onsol e Driven 

Each console driver routine should begin with the public entry name CONDRQsv and 
should perform a console operation in accordance with the operation code (0, 1, 2 r 8 
or 9) passed by TurboDOS in the E-register* A console number is passed in the 
B-register (obtained from the least-significant nibble of the console assignment table 
entry CON AST#). 

If E*0, the driver must determine if a console input character is available. It must 
return with A=-l if a character Is available, or with A=0 If no character is available. 
If a character is available, the driver must return it in the C-register, but must not 
"consume 11 the rharagtwv (This look-ahead capability is used by TurboDOS to detect 
attention requests^ 

If Esl, the driver must obtain a consoie input character (waiting for one if 
necessary), and return it in the A-register* 

If Ea2, the driver must output to the console the character passed by TurboDOS in 
the C-register. 

If Es3, the driver should prepare to display a TurboDOS error message; if E=9, the 
driver should revert to normal display. Error message displays issued by TurboDOS 
are always preceded by an E=8 call and followed by an E=9 call. This gives the 
console driver the opportunity to take special action for system error messages (e.g^ 
25th line, reverse video). For simple console devices, the driver should perform a 
carriage-return and line-feed in response to Es£ and E=9 calls. 

Printer Drivers 

Each printer driver routine should begin with the public entry name LSTDRQ::, and 
should perform a printer operation in accordance with the operation code (2 or 7) 
passed by TurboDOS in the E-register. A printer number is passed in the B-register 
(obtained from the least-significant nibble of the printer assignment table entry 
LSTAST#). 

If E=2, the driver must output to the printer the character passed by TurboDOS in the 
C-register. 

If E=7, the driver should take any appropriate end-of-print-job action (e.g., re-aiign 
forms, drop ribbon, home print head). 
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Network. Driver* 

(To be supplied in a future revision-) 
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Disk Drivers 


Eacb disk driver routine shouid begin with the public entry name DSKDR@ss, and 
should perform a physical disk operation as specified by the physical disk request 
packet whose address is passed by TurboDOS in the X-register. The format of the 
physical disk request packet is* 


X+QS 

.BYTE 

OPCODE 

X+l: 

.BYTE 

DRIVE 

X+2: 

.WORD 

TRACK 

X+4* 

.WORD 

SECTOR 

X+6t 

.WORD 

SECCNT 

X+8r 

.WORD 

BYTCNT 

X+l Or 

.WORD 

DMAADR 

X+12: 

.WORD 

DSTADR 


{disk operation code 
;drive number on controller (base 0) 
•physical track number (base 0) 
{physical sector number (base 0) 
piumber at sectors to read or write 
piumber of bytes to read or write 
;DMA address for read or write 
{disk specification table address 


copy of disk specification table- follows 


X+Hs 

3 YTE 

BLKSIT 

X+lJt 

.WORD 

NMBLK5 

X+17r 

.BYTE 

NMBDIR 

X+iS: 

.BYTE 

SECSIZ 

X+i9: 

.WORD 

SECTRK 

X+21: 

.WORD 

TRKDSK 

X+23: 

.WORD 

RESTRK 


{block size (3*1K, 4=2K,~, 7=16K) 

plumber of blocks,, total 

{number of directory blocks 

{sector size (0=123, 1=236, 2—512^***, 

{sectors per track 

{total tracks on disk 

{reserved tracks on disk 


7=16K) 


If OPCODE=0, then the driver must read 5ECCNT physical sectors (or BYTCNT bytes) 
into DMAADR, starting at TRACK and SECTOR on DRIVE* Return with A=-l If an 
unrecoverable error occurs, otherwise return with A»0. Although TurboDOS may 
request many consecutive sectors to be read, it will never request an operation which 
extends past the end of the specified track. 


If OPCODE=l, then the driver must write SECCNT physical sectors (or BYTCNT 
bytes) from DMAADR, starting at TRACK and SECTOR on DRIVE. Return with 
A=-l if an unrecoverable error occurs, otherwise return with A=0. Although 
TurboDOS may request many consecutive sectors to be written, it will never request 
an operation which extends past the end of the specified track. 
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If OPCODES, then the driver must determine the type of disk mounted in the 
specified drive,, and must return in DSTADR the address- of an 11-byte disk 


specification table structured as. f ollowst 

DSTr .BYTE BLKSIZ 
•WORD NMBLKS 
.BYTE NMBDIR 
-BYTE SECSJZ 
.WORD SECTRK 
.WORD TRKDSK 
.WORD RE5TRK 


;biock size 0=1 K, <*=2K^,7*16K) 

piumber of blocks, total 

jnumber of directory blocks 

,‘sector size (0=128, 1=256, 2=512 w 7=16K) 

^sectors per track 

;total tracks on disk 

;reserved tracks on disk 


On return, Turbo DOS moves a copy of the disk specification table into X+14- through 
X+24, where it is available for subsequent read and write operations on that drive. If 
the drive is not ready or the type is unrecognizable, the driver must return A=0, 
otherwise it must return A=-i. 


If OPCODE=3, then the driver must determine whether or not the specified drive is 
ready* Return A=-l if the drive is ready, otherwise return A=Q. 

If OPCODES, then the driver must format (Le., initialize) the specified TRACK on 
DRIVE. Hardware-dependent formatting information will be provided at DMAADR* 
Return with A=-l if an unrecoverable error occurs, otherwise return with A=0. 
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Real-Time Clock Driver 


The real-time clock driver normally consists, at an interrupt service routine which 
responds to interrupts from a periodic interrupt source (preferably 50 to 60 times per 
second}* The interrupt service routine should call D LYTIC# once per system tick to 
synchronize process delay requests* It should also call RTCSEC# once per second 
(i.e., every 50 or 60 ticks) to update the system time and date. Finally,. it should 
exit through I5RXIT# to provide a periodic system time-slice. 

Excluding necessary initialization code, a typical real-time clock driver might look 
like this 


RTCCNT: .BYTE 

1 

,’divide-by-60 counter 

RTOSR: SSPD 

INTSP# 

jsave user's stack painter 

lxi 

SP^NTSTK# 

;set up aux Hilary stack 

PUSH 

PSW 

jsave ail registers 

PUSH 

B 


PUSH 

D 


PUSH 

H 


IN 

STATUS 

,*reset the interrupt condition 

CALL 

DLYTIC# 

; signal one tick elapsed time 

LXI 

H,RTCCNT 

;get divide-by-60 counter 

DCR 

M 

decrement counter 

JRNZ 

-X 

;not 60 ticks yet, exit 

MVI 

Mr60 

;eise, reset counter to 60 ticks 

CALL 

RTCSEC# 

,'signal one second elapsed time 

.~X: POP 

H 

,restore all registers 

POP 

D 


POP 

B 


POP 

PSW 


LSPD 

INTSP# 

; rest ore user's stack pointer 

JMP 

isrxit# 

;exit through dispacher 


If it is possible to determine the date and/or time-of-day at cold-start (e.g., by means 
of a battery-powered dock board), then the driver may initialize the following public 
symbols in RTCMGR: 


SECS:: .BYTE 

MINS:: .BYTE 

HOURS:: .BYTE 
JDATE:: .WORD 


0 

0 

0 

8001H 


;0._59 

;0...59 

;0*»23 

•Julian date, based 31 Dec 47 
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Comm Channel Driver* 

The comm channel driver supports the TurboDOS communications extensions 
(functions 87.^93), and is not required if these functions are not used. The comm 
channel driver routine should begin with the public entry name COMDRY:^. and should 
perform a comm channel, operation in accordance with the operation code passed by 
TurboDOS in the E-register. A channel number is passed in the B-register. 

If E*Q r the driver must determine if an input character is available on the specified 
channel. It must return with A=-l if a character is available, or with A=Q if no 
character is available. 

If E=l, the driver must obtain an input character from the specified channel (waiting 
for one if necessary),, and return it in the A-register. 

If E=2, the driver must output to the specified channel the character passed by 
TurboDOS in the C-register. 

If E=3, the driver must set the baud rate of the specified channel according to the 
baud rate code passed by TurboDOS in the C-register. (See function 90 in the User's 
Guide for definition of the codesj 

If E=4, the driver must obtain the current baud rate code for the specified channel, 
and return it in the A-register. 

If E=5, the driver must set the modem controls of the specified channel according to 
the modem control vector passed by TurboDOS in the C-register. (See function 92 in 
the User's Guide for definition of the vector.) 

If E=6, the driver must obtain the current modem status vector for the specified 
channel, and return it in the A-register. (See function 93 in the User's Guide for 
definition of the vector.) 
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Bootstrap. ROM 

Implementation of a TurboOOS bootstrap ROM involves linking the standard bootstrap 
module OSBOOT with a hardware-dependent driver QSBDRV. This should be 
accomplished with the GEN command, using the "jLxxxx* option to establish the 
desired ROM base address* Since the OSBOOT module requires only OJMC, the 
completed bootstrap can fit in a IK ROM (e^, 2708) if the driver is kept simple 
enough* The driver module OSBDRV must define five public entry names* IMTss, 
SELECT::, REA De, XFERs, and RAMs* 

I NIT:: is called at the beginning of the bootstrap process, and performs any required 
hardware initialization (e^., of the disk controller)* It must return with the load 
base address in the HL-registers. The load base address determines the RAM where 
loading of the file OSLOAD.COM will begin*. It should normally be Q100H, but may 
have to be a higher address if low RAM cannot be written while the ROM is enabled. 

SELECT:: selects the disk drive according to the drive number 0—1.5 passed in the 
A-register. If the selected drive is not ready or non-existent, then this routine must 
return A=Q. Otherwise, it must return A=-l, and must return the address of an 
appropriate disk specification table in the HL-registers. The disk specification table 
is an 11-byte table whose format is the same as described earlier for the normal disk 
driver. 

READ:: reads one physical sector from the last selected drive into RAM. On entry,' 
the physical track is passed in the B C-registers, the physical sector is passed in the 
DE-registers, and the starting RAM address is passed in the HL-registers. The 
routine must return with A=0 if the operation was successful, or with A=-l if an 
unrecoverable error occurred. 

XFER:: is executed at the end of the bootstrap process, and transfers control to the 
loader program OSLOAD.COM which has been loaded into RAM. In most cases, this 
involves simply setting location 0080H to zero (to simulate a null command tail), and 
jumping to 0100H. However, if I NIT returned a loader base other than 0100H, then 
XFER should move the loader program down to 0100H prior to execution. 

RAM:: defines the beginning of a 64-byte area of RAM that OSBOOT can use as 
working storage. Obviously, it should not be located in the area in which 
OSLOAD.COM will be loaded! 
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BRT4420 Baud-rate tables for IMS 442/480 with baud-rate oscillator, 
BRT442S Baud-rate tables for IMS 442 without- baud-rate oscillator. 

BRT74G Baud-rate tables for IMS 740 slave board. 

CONI 92 Console driver for ASCII CRT at 19,200 baud. 

CON96 Console driver for ASCII CRT at 9,600 baud. 


OSK401 

DSK431 

DSK490 

DSKIM558 

OSKM10 

DSKM20 

DSKM26 

DSKFMT5 

DSKFMTS 

DSKFMTA 


HD W NIT 


Disk driver for IMS 401 8-inch floppy disk controller. 

Disk driver for IMS 431 3-inch floppy disk controller. 

Disk driver for IMS 490 hard disk controller. 

Disk driver for both IMS 401 and 431 floppy disk controllers. 
Disk driver for Morrow 10 Mb Winchester. 

Disk driver for Morrow 20 Mb Winchester. 

Disk driver for Morrow 26 Mb Winchester. 

Disk specification tables for 5-inch floppy disks. 

Disk specification tables for 8-inch floppy disks. 

Disk specification tables for both 5-inch and 8 -inch flopp y disks 




Hardware initialization. 


LST300 Printer driver for no handshaking, 300 baud (e.g., Teletype 43). 

LSTCTS Printer driver for CT5 handshaking, 9600 baud (e.g., TI-810). 

LSTETX Printer driver for ETX/ACK handshaking, 1200 baud (e.g., NEC 5510). 

LSTXON . Printer driver for XON/XOFF handshaking, 1200 baud (e.g., Diablo 630). 

LSTIMS Printer driver for Centronics parallel. 

LSTNEC Printer driver for parallel NEC 5500D. 

MPENIT Memory parity initialization for IMS 461 64K RAM board. 

N740M Network driver for master, using IMS 740 slave boards. 

N740S Network driver for slaves, using IMS 740 slave boards. 

NET80M Network driver for master, using MuSYS NET/80 slave boards. 

NET80S Network driver for slaves, using Mu5YS NET/80 slave boards. 


RTC442 


Real-time clock driver for IMS 442 ROM-I/O board. 
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SER480 

SP442 

SP74Q 

SPNSQ 


Serial subroutines for IMS 480 4-port serial board. 

Serial and parallel subroutines for IMS 442 ROM-I/O board- 
serial and parallel subroutines for IMS 740 slave board. 
Serial and parallel subroutines for MuSYS NET/80. 
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Symbolic Patch Points In IMS Driver Modules 


Parameters in the IMS hardware-dependent driver modules which may be useful to 
patch include the following, shown with their standard values: 


CONBR 

a 8E 

FFCHR 

a 0C 

Tn CONI92 Module 

CONBR 

a 8F 

FFCHR 

a 0C 

Tn LST300 Module* 

LST3BR 

a 23 

LST3FF 

a 0C 

Tn LSTCTS Modules 

CTSBR 

a 6E 

CTSFF 

a 0C 

In LSim. Modules 


ETXBR 

ETXFF 

ETXLEN 

ETXSEQ 


a 07 
* 0C 
a 8C 
a 03 


Baud rate code (9,600 baud w/attention detect) 
Clear-the-screen character at cold-start 


Baud rate code (19,200 baud w/attention detect) 
Clear-the-s creen character at cold-start 


Baud rate code (300 baud, output-only) 
Top-of-form character at end-of-print 


Baud rate code (9,600 baud, CTS handshaking) 
Top-of-form character at end-of-print 


Baud rate code (1,200 baud, input/output) 
Top-of-form character at end-of-print 
Length of output between ETXs 
Length of maximal escape sequence 


In. L5.HMS.. Module; 

IMSFF = 0C Top-of-form character at end-of-print 

In LSIXQN Module: 

XONBR a 07 Baud rate code (1,200 baud, input/output) 

XONFF a oc Top-of-form character at end-of-print 


In N74QM Module? 

SLVPAT = 40,44,48,4C,30,34,38,3C,60,64,6S,6C,70,74,7S,7C 

Slave board port assignment table 


Tn NF-TSQM Modulo* 

N80PAT = 20,22,24,26,28,2A,2C,2E,30,3 2,34,36,38,3 A,3C,3E 

Slave board port assignment table 
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In SPH2. Modules 

SERBSZ s 40 Type-ahead buffer size 

In SP740 Module* 

SERBSZ = 40 Type-ahead buffer size 
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IMS Logie Board Set-Up for Turbo DOS 

MI ** Ptonpir Ptaie CantroUer 

Shunt JA Address to port 8Q-8F hex (standard etch) 

JB Install horizontal shunt at "3" (interrupts) 

JC Install two horizontal shunts at top and bottom (precomp) 
JO Install horizontal shunt (delay complete) 


43 L 3*. Floppy Diak Controller 

Shunt JA Address to port CO-CF hex (cut tracer Install jumper) 

JB Install horizontal shunt at "3" (interrupts) 

JC Install vertical shunt (two-sided) if MPI 52 drives Installed 
Remove IC at "3-8" (74LS74), lift pin 13 clear of socket, connect to pin 12 cn the IC 
itself, and reinstall In socket (ready logic modification)- 

442 I/O Board 

Shunt JA Install horizontal shunt on topmost pair 
JB . Install vertical shunt 

JC For parallel NEC printer, install horizontal shunts on all 16 pairs 
JO Standard etch 
JE Standard etch 
JF Standard etch 

JG Install only 1 horizontal shunt cn bottom pair (ROM enable at FCOQ hex). 
JH Cut trace between top pair, jumper bottom pair (timer enable) 

JJ Install horizontal shunt at "VII w 
JK Install horizontal shunt at "YD" 

JL Install horizontal shunt at "VI3" 

JM No shunt 
JN No shunt 

JP Install 3 horizontal shunts at "A7", "A6", and "A3" (not "A4") 

Install oscillator at "13-D" and install 74 LSI 61 IC at "13-CV Install TurboDOS boot 
PROM at "6.3-8". For parallel NEC printer, install 220/330 resistor pack at IC "12- 
A". 


*50 Z30 CPU Beard 

Shunt JA No shunt (wait states) 

JB Install 2 horizontal shunts cn bottom (Jump to FC00 hex) 

JC Standard etch (4 MHz) 

JD Standard etch 

For accurate real-time clock performance, add 10 pf capacitor (mica or NPO) in 
series with one leg of 16 Mhz crystal. 




Configuration; Guide to TurboOOS 
Copyright (C) 1981 by Software 2000 Inc* 
Implementation on IMS Equipment 


a*i *air Dynamic RAM. 

Shunt JA Install vertical shunt an top pair (high-speed RAM) 

JB Install horizontal shunt (I/O port enabled) 

JC Install 8 horizontal shunts- (port 00) 

JO Install shunt (phantom) 

JE No shunt (unmapped! 

JF No shunt (Z80 timing) 

JG No shunt (vectored interrupt) 

JH Install horizontal shunt cn left pair (no front panel) 

480 Four-Port Serial Board 

Shunt JA No shunts (port address E0-FF hex) 

JB' Install horizontal shunt on bottom pair (use oscillator) 
JC Install horizontal shunt at "VB" (vectored interrupt) 
JO Install horizontal shunt at "VO” (vectored interrupt) 
JE Install horizontal shunt at "VD 11 (vectored interrupt) 
JF Install horizontal shunt at "VO* (vectored interrupt) 

430 Cartridge Module nrtv- Controller 
Shunt JA Standard etch (DMA channel 2) 

JC Standard etch (address port 90-97 hex) 

JD Install vertical shunt at "VI4" (vectored interrupt) 


740 I/O Processor Beard (Slave uPl 
Shunt JA Address boards to hex 40, 44, 48, 4C, etc. 
JB No shunt (disable vectored interrupt) 
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Configuration- Guide to TurboOOS 
Copyright (Cl 1981 by Software 2000 Inc* 
Implementation on TRS-80 Model H 




CONTRS Console driver for TRS-8Q keyboard/display* 

DSKTRS Disk driver for TRS-80 8-inch floppy disk controller* 

DSKFMT8 Disk specification tables for 8-inch floppy disks* 

HD W NIT Hardware Initialization. 

LSTTRS Printer driver for TRS-80 Centronics parallel interface* 

LST30Q Printer driver for no handshaking, 300 baud (e.g. r Teletype 43)* 

LSTCTS . Printer driver for CTS handshaking, 9600 baud (e.g^ TI-810). 

LSTETX Printer driver for ETX/ACK handshaking, 1200 baud (e.g. r NEC 3310). 
LSTXON Printer driver for XON/XOFF handshaking, 1200 baud (e.g^ Diablo 630). 

RTCTRS Real-time dock driver for TRS-80 CTC* 

SPTRS Serial and parallel subroutines for TRS-80. 
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Configuration Guide to TurboDOS 
Copyright (C) 1981 by Software 2000 Inc* 
Implementation on TR5-8Q Model H 


SvmbflUf Pafgjr Points In TRS-gQ Model IT Driwp Mfldllica 

Parameters in the TRS-8Q Model H hardware-dependent driver modules which may be 
useftii to patch include the following, shown with their standard values* 


la LSUBS, Modules 
TRSFF * QC 

Top-cf-form character at end-of-print 

Tn L5T300 Mnrfnl*** 

LST3BR = 25 
LST3FF = 0C 

Baud rate code (300 baud, output-only) 
Top-of-form character at end-of-print 

la L5TCTS Module? 
CTSBR =• 6E 

CTSFF = OC 

Baud rate code (9,600 baud, CTS handshaking) 
Top-of-form character at end-of-print 

In LSTETX Module- 

ETXBR = 07 

ETXFF = OC 

ETXLEN = 8C 
ETXSEQ = 03 

Baud rate code (1,200 baud. Input/output) 
Top-of-form character at end-of-print 

Length of output between ETXs 

Length of maximal escape sequence 

la LSTXQM Modules 
XONBR = 07 

XONFF = 0C 

Baud rate code (1,200 baud, input/output) 
Top-of-form character at end-of-print 

la SPTRS, Modulo; 
SERBSZ = 40 

Type-ahead buffer size 


B-2 
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'QUATE - TURBODOS OPERATING STSTEH SYMBOLIC EQUIVALENCES 
Copyright (C) 1931 by Software 2000 y Inc* 


IlDENT EQUATE 
J ASCIX EQUIVALENCES 


r 


0000 

ANUL 

sx 00H 

jNULL 

0001 

ASOH 

S3 01H 

jSOH 

0002 

ASTZ 

S3 02H 

;STX 

0003 

AETX 

S3 03H 

;ETX 

0004 

AEOT 

ss 04H 

;EOT 

0005 

AENQ 

ss 05H 

jENQ 

0006 

AACK 

ss 06H 

JACK 

0007 

ABEL 

S3 07 H 

jBELL 

0008 

ABS 

S3 08H 

;BS 

0009 

AHT 

ss 09H 

;HT 

000A 

ALF 

ss OAH 

;LF 

000B 

AVT 

S3 OBH 

;VT 

OOOC 

AFF 

ss OCH 

;FF 

000D 

ACR 

S3 ODH 

;CR 

000E 

ASO 

ss OEH 

;S0 

000F 

ASI 

ss OFH 

;SI 

0010 

ABLE 

ss 10H 

;DLE 

0011 

ADC1 

S3 11H 

;DC1 

0012 

ADC2 

S3 12H 

;DC2 

0013 

ADC 3 

S3 13H 

JDC3 

0014 

ADC4 

S3 14H 

;DC4 

0015 

AN AX 

S3 15H 

JNAK 

0016 

ASTN 

S3 16H 

;SYN 

0017 

AETB 

S3 17H 

;ETB 

0018 

A CAN 

S3 18H 

; CAN 

0019 

AEM 

S3 19H 

;EM 

001A 

ASUB 

S3 1 AH 

;SUB 

001B 

AESC 

S3 1BH 

; ESC 

001C 

AFS 

S3 1CH 

;FS 

001D 

AGS 

ss 1DH 

jGS 

001E 

ARS 

S3 1 EH 

;RS 

001F 

AUS 

S3 1FH 

;US 

0020 

ASP 

S3 20H 

jSPACE 

007F 

ARUB 

S3 7FH 

JRUBOUT (DEL) 
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EQUATE - TURBODOS OPERATING SYSTEM SYMBOLIC EQUIVALENCES 
Copyright (C) 1981 by Software 2000, Inc.. 


7 


0000 

wboot 

S3 0000ft 

; WARM START ENTRYPOINT 

0003 

IOBYTE 

ss 0003ft 

;I/0 CONFIGURATION BYTE 

0004 

CURDHV 

ss 0004H 

;CURRENT DEFAULT DRIVE 

0005 

OPSYS 

S3 0005ft 

;OPERATING SYSTEM ENTRYPOINT 

005C 

TFCB 

ss Q05CH 

;DEFAULT FILE CONTROL BLOCK 

0080 

TBUF 

ss 0080ft 

;DEFAULT DISK BUFFER ADDRESS 

0100 

TPA 

• 

ss 0100ft 

;TRANSIENT PROGRAM AREA BASE 

OOOO 

7 

•LOC 0 

;WOBEING STORAGE RELATIVE TO 0 

0000 

• 

PDRDP: 


{PD REQUEST DESCRIPTOR PACKET 

0000 

PDRFCM: 

•BLEB t 

{PD REQUEST FUNCTION NUMBER 

0001 

PDRDRV: 

• BLEB 1 

;PD REQUEST DRIVE NUMBER 

0002 

PDRTRK: 

•BLEW 1 

{PD REQUEST TRACK NUMBER 

0004 

PDRSECt 

•BLEW 1 

;PD REQUEST SECTOR NUMBER 

0006 

PDRSC: 

•BLEW 1 

;PD REQUEST SECTOR COUNT 

0008 

PDRTC: 

•BLEW 1 

;PD REQUEST TRANSFER COUNT 

000A 

PDRDMA: 

•BLEW 1 

{PD REQUEST DMA ADDRESS 

OOOC 

PDRDST: 

ODR 

•BLEW 1 

;PD REQUEST DRIVE SPEC TABLE A 

000E 

PDSLEN 
LENGTH 

ss •-PDRDP 

;PD REQUEST DESCRIPTOR PACKET 

000E 

DSKNFO: 


•DISK TYPE INFORMATION 

000E 

BLKSIZ: 

•BLEB 1 

;BLOCK SIZE 

000F 

NMBLXS: 

.BLEW 1 

{NUMBER OF BLOCKS 

0011 

NMBDIR: 

•BLEB 1 

{NUMBER OF DIRECTORY BLOCKS 

0012 

SECSIZ: 

) 

SECTRK: 

•BLEB 1 

{PHYSICAL SECTOR SIZE (2*N*128 

0013 

.BLEW 1 

{PHYSICAL SECTORS PER TRACK 

0015 

THKDSK: 

.BLEW 1 

{PHYSICAL TRACKS PER DISK 

0017 

RESTRK: 

.BLEW 1 

{NUMBER OF RESERVED TRACKS 

000B 

DNFOL 

• 

!end 

ss .-DSKNFO 

{DISK INFO LENGTH 
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WNXT - TURB0D0S OPERATING SYSTEM - HARDWARE INITIALIZATION - 
wOPYRIGHT (C) 1981, SOFTWARE 2000, INC. 


COPYHIGHT (C) 1981, SOFTWARE 2000, INC. 

AUTHORS: RONALD E. RAISES 
MICHAEL D. BUSCH 

VERSION: 09/08/81 

IDENT HDWNIT ;MODULE ID 


INSERT DREQUATE ;DRIVER SYMBOLIC EQUIVALENCES 


0000» 



m 

.LOC 

•PROG.# ; 

LOCATE IN PROGRAM AREA 

0000’ 

0020 

t 

•WORD 

NITLEN+2 

;INITIALIZATION CODE LENGTH 

0002* 

CD 

0000:04 

HDWNIT: 

: CALL 

MPENIT# 

INITIALIZE MEMORY PARITY 

0005* 

CD 

0000:05 


CALL 

SPINIT# 

INITIALIZE SERIAL/PARALLEL I/O 

0008* 

CD 

0000:06 


CALL 

RTCNIT# 

INITIALIZE REAL TIME CLOCK 

000B* 

CD 

0000:07 


CALL 

DSKINA# 

INITIALIZE DISK DEVICE A 

OOOE* 

CD 

0000:08 


CALL 

DSKINB# 

INITIALIZE DISK DEVICE B 

0011» 

CD 

0000:09 


CALL 

DSKINC# 

INITIALIZE DISK DEVICE C 

0014* 

CD 

0000:OA 


CALL 

DSKIND# 

INITIALIZE DISK DEVICE D 

0017* 

CD 

0000:OB 


CALL 

NETNIT# 

INITIALIZE NETWORK DRIVER 

001 A' 

21 

0002* 


LXI 

H,HDWNIT 

;GET INITIALIZATION CODE ADDRESS 

001D* 

C3 

0000:0C 


JMP 

DEALOC# ; 

DE-ALLOCATE INITIALIZATION CODE 

001E 



NITLEN 

= .-HDWNIT ; 

INITIALIZATION CODE LENGTH 




Iend 



- 
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C0N96 - TURBODOS OPERATING SYSTEM- NULL CONSOLE DRIVER 

COPYRIGHT CC) 1981, SOFTWARE 2000, INC. 


COPYRIGHT (C) 198T t SOFTWARE 2000, INC. 

AUTHORS: RONALD E» RAISES 
MICHAEL D. BUSCH 

VERSION: 09/08/81 

IDENT CON96 ; MODULE ID 


.INSERT DREQUATE ;DRIVER SYMBOLIC EQUIVALENCES 


0000" 


9 

# 

.LOC 

•DATA.# 

;LOCATE IN DATA AREA 

0000" 

8E 

CONBRtt 

.BYTE 

0EHI80H 

;CONSOLE BAUD RATE CODE (9600 BAUD) 

0001"' 

OC 

FFCHR:: 

.BYTE 

AFF 

;FORM FEED CHARACTER 

0002"- 

00 

INITCr 

.BYTE 

0 

;INITIALIZATION COMPLETE FLAG 

0000» 


J 

.LOC 

•PROG.# 

;LOCATE IN PROGRAM AREA 

0000» 

21 0002" 

CONORS: 

:LXT 

H,INITC 

;GET INITIALIZATION COMPLETE FLAG 

0003* 

7E 


MOV 

A,M 


0004 1 

B7 


ORA 

A 

;INITIALIZATION COMPLETE FLAG SE1 

0005* 

CC 0013* 


cz 

..INIT 

;IF NOT, INITIALIZE CONSOLE BAUD RA1 

0008* 

7B 

g 

..CDRVr 

MOV 

A, E 

;GET FUNCTION NUMBER 

0009* 

D608 


SUI 

8 

;FUNCTION NUMBERs8? 

OOOB* 

2821 


JRZ 

CONSO 

;IF SO, ERROR SHIFT OUT 

OOOD* 

3D 


DCR 

A 

;FUNCTION NUMBER=9? 

OOOE* 

281 E 


JRZ 

CONSI 

;IF SO, ERROR SHIFT IN 

0010* 

C3 0000:04 


JMP 

SERIAL# 

;ELSE, CONTINUE 

0013* 

35 

..INIT: 

DCR 

M 

;SET INITIALIZATION COMPLETE FLAG 

0014* 

C5 


PUSH 

B 

;SAVE CHANNEL NUMBER/CHARACTER 

0015* 

D5 


PUSH 

D 

;SAVE FUNCTION NUMBER 

0016* 

3A 0000" 


LDA 

CONBR 

;GET CONSOLE BAUD RATE CODE 

0019* 

4F 


MOV 

C, A 

;TELEVIDEO BAUD RATE CODE TO C-REG 

001 A* 

1E03 


MVI 

E, 3 

;SET FUNCTION NUMBER=3 

001C* 

CD 0000:04 


CALL 

SERIAL# 

;SET CHANNEL BUAD RATE 

00 IF* 

3A 0001" 


LDA 

FFCHR 

;GET FORM FEED CHARACTER 

0022* 

BT 


ORA 

A 

;FORM FEED CHARACTERS? 

0023* 

2806 


JRZ 

..NITX 

;IF SO, CONTINUE 

0025* 

4F 


MOV 

C, A 

;ELSE, FORM FEED CHARACTER TO C-REG 

0026* 

1E02 


MVI 

E, 2 

;SET FUNCTION NUMBER=2 

0028* 

CD 0008* 


CALL 

••CDRV 

•OUTPUT FORM FEED 

002B* 

D1 

..NITX: 

POP 

D 

;RESTORE FUNCTION NUMBER 

002C* 

Cl 


POP 

B 

;RESTORE CHANNEL NUMBER/CHARACTER 

002D* 

C9 


RET 


;DONE 

002E* 


CONSO: 




002E* 

CD 0000:05 

CONSI: 

CALL 

DMS# 

:POSITION TO NEXT LINE 

0031 * 

0D8A 


•ASCIS 

[ACR] CALF] 

0033* 

C9 


RET 


;DONE 


.END 
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3TX0N - TURBODOS OPERATING SYSTEM XON/XOFF PRINTER DRIVER 
COPYRIGHT (C) 1981 BY SOFTWARE 2000, INC. 


COPYRIGHT CC) 1981 BY SOFTWARE 2000, INC. 

AUTHORSI RONALD E. RAISES 
MICHAEL D. BUSCH 

VERSION: 09/08/81 


IDENT LSTXON ;MODULE ID 

INSERT DREQUATE ;DRIVER SYMBOLIC EQUIVALENCES 


0000" 



•LOC 

.DATA.# ; 

LOCATE IN DATA AREA 

0000" 

07 

XONBR:: 

.BYTE 

7 

BAUD RATE CODE (1200 BAUD) 

0001" 

OC 

XONFF:: 

.BYTE 

AFF 

FORM FEED CHARACTER 

0002" 

OOOOOOOOOOOO 

INITC: 

.BYTE 

C1610 

INITIALIZATION COMPLETE FLAGS 

0000 * 


J 

»LOC 

•PROG.# ; 

LOCATE IN PROGRAM AREA 

0000* 

21 0002" 

LSTDRS: 

:LU 

H,INITC 

GET INITIALIZATION COMPLETE FLAGS 

0003' 

D5 


PUSH 

D 

SAVE FUNCTION NUMBER 

0004’ 

58 


MOV 

E,B 

CHANNEL NUMBER TO DE-REG 

0005’ 

1600 


MV I 

D,0 

DOUBLE LENGTH 

0007 * 

19 


DAD 

D 

INDEX INTO FLAGS TABLE 

0008’ 

D1 


POP 

D 

RESTORE FUNCTION NUMBER 

0009' 

7E 


MOV 

A,M 

GET INITIALIZATION COMPLETE FLAG 

OOOA' 

B7 


ORA 

A 

INITIALIZATION COMPLETE FLAG SET? 

OOOB’ 

CC 0018’ 


CZ 

..INIT 

IF NOT, INITIALIZE LIST CHANNEL 

OOOE’ 

7B 


MOV 

A,E 

GET FUNCTION NUMBER 

OOOF’ 

FE02 


CPI 

2 

FUNCTION NUMBERs2? 

0011 ’ 

281A 


JRZ 

LSTOUT 

IF SO, CONTINUE 

0013’ 

FE07 


CPI 

7 

FUNCTION NUMBER=7? 

0015’ 

2810 


JRZ 

LSTWSR 

IF SO, CONTINUE 

0017’ 

C9 


RET 


ELSE, DONE 

0018’ 

35 

.•INIT: 

DCH 

M 

SET INITIALIZATION COMPLETE FLAG 

0019’ 

D5 


PUSH 

D 

SAVE FUNCTION NUMBER 

001 A’ 

C5 


PUSH 

B 

SAVE CHANNEL NUMBER/CHARACTER 

001B* 

3A 0000" 


LDA 

XONBR 

GET BAUD RATE CODE 

001 E’ 

4F 


MOV 

C, A 

BAUD RATE CODE TO C-REG 

001F’ 

1E03 


MVI 

E,3 

SET FUNCTION NUMBERs3 

0021 » 

CD 0000:04 


CALL 

SERIAL# 

SET CHANNEL BUAD RATE 

0024’ 

Cl 


POP 

B 

RESTORE CHANNEL NUMBER/CHARACTER 

0025’ 

D1 


POP 

D 

RESTORE FUNCTION NUMBER 

0026’ 

C9 


RET 


DONE 

0027’ 

3A 0001" 

LSTWSR: 

LDA 

XONFF 

[GET FORM FEED CHARACTER 

002A» 

4F 


MOV 

C, A 

iFORM FEED CHARACTER TO C-REG 

002B» 

1E02 


MVI 

E ,2 

;SET FUNCTION NUMBER=2 

002D ’ 

CD 0048' 

LSTOUT: 

CALL 

• .SST 

GET SERIAL STATUS 

0030' 

07 


ORA 

A 

CHARACTER AVAILABLE? 

0031 ' 

2812 


JRZ 

..OUT 

IF NOT, CONTINUE 

0033’ 

CD 0051• 


CALL 

..SIN 

ELSE, GET SERIAL INPUT 
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SP442 - TURBODOS OPERATING SYSTEM SERIAL/PARALLEL I/O DRIVER (IMS 442) 

COPYRIGHT (C) 1981, SOFTWARE 2000, IRC, 


; COPYRIGHT (C) 1981, SOFTWARE 2000, INC, 

; AUTHORS: RONALD E. RAISES 
; MICHAEL D, BUSCH 


VERSION: 09/08/81 



.ID ENT 
• 

SP442 

fMODULE ID 


I INSERT 
• 

DREQUATE 

;DRIVER SYMBOLIC EQUIVALENCES 

0010 

IOBASE 

- 

10H 

; SERIAL/PARALLEL I/O PORT BASE 

0010 

SOCTRL 

r 

IOBASE+OOH 

;SERIAL 0 CONTROL/STATUS REGISTER 

0011 

SODATA 

s 

IOBASE+OIH 

;SERIAL 0 DATA REGISTER 

0012 

SI CTRL 

s 

I0BASE+02H 

;SERIAL 1 CONTROL/STATUS REGISTER 

0013 

SI DATA 

- 

I0BASE+03H 

; SERIAL 1 DATA REGISTER* 

0014 

TIMO 

— 

I0BASE+04H 

;TIMER 0 DATA REGISTER 

0015 

TIM1 

s. 

I0BASE+05H 

; TIMER 1 DATA REGISTER 

0016 

TIM2 

s 

I0BASE+06H 

;TIMER 2 DATA REGISTER 

0017 

TIMCTL 

mm 

I0BASE+07H 

;TIMER CONTROL REGISTER 

0018 

SINTE 

• 

I0BASE+08H 

;SERIAL INTERRUPT ENABLE REGISTEP 

0019 

T2RES 

S' 

I0BASE+09H 

; TIMER 2 INTERRUPT RESET 

001C 

PODATA 

s 

IOBASE+OCH 

;PARALLEL 0 DATA REGISTER 

001D 

PI DATA 

S 

IOBASE+ODH 

;PARALLEL 1 DATA REGISTER 

001 E 

P2DATA 

sr 

IOBASE+OEH 

;PARALLEL 2 DATA REGISTER 

001F 

PPCTL 

s 

IOBASE+OFH 

;PARALLEL PORT CONTROL REGISTER 

0000 

Ida 

mm- 

mm 

0 

jRECEIVED DATA AVAILABLE BIT' 

0001 

TBE 

S' 

1 

; TRANSMIT BUFFER EMPTY BIT 

0007 

CTSN 

= 

7 

jCLEAR TO SEND (NOT) BIT 

0000 

ROMDIS 

«• 

0 

;ROM DISABLE BIT 

0001 

RTCENA 

•m 

1 

;REAL TIME CLOCK ENABLE BIT 

0002 

SI THE 


2 

; SERIAL 1 TX INTERRUPT ENABLE BIT 

0003 

SI RUE 

5 

3 

;SERIAL 1 RX INTERRUPT ENABLE BIT 

0004 

SI RTSN 

s 

4 

; SERIAL 1 REQ TO SEND (NOT) BIT 

0005 

SOTZIE 

s 

5 

; SERIAL 0 TX INTERRUPT ENABLE BIT 

0006 

SORHE 

s. 

6 

; SERIAL 0 RX INTERRUPT ENABLE BIT 

0007 

SORTSN 

= 

7 

; SERIAL 0 REQ TO SEND (NOT) BIT 

0036 

TOCMD 


36H 

; TIMER 0 COMMAND 

0076 

T1CMD 

s 

76H 

; TIMER 1 COMMAND 

00B6 

T2CMD 

• 

= 

0B6H 

; TIMER 2 COMMAND 

0089 

PPMODE 

• 

89H 

; PARALLEL PORT MODE WORD 

0019 

SPMODE 

• 

= 

19H 

; SERIAL PORT MODE WORD 
; PARITY INHIBIT/1 STOP BIT/8 BITS 

FCOO 

BOOTPR 

• 

0FC00H 

; BOOTSTRAP LOADER EPROM BASE 

0000" 

J 

• 

9 

•LOC .DATA.# 

; LOCATE IN DATA AREA 
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ST20N - TURBODOS OPERATING SYSTEM XON/XOFF PRINTER DRIVER • 
COPYRIGHT (C) 1981 BY SOFTWARE 2000, INC. 


0036* 

E67F 

ANI 

7FH 

{STRIP SIGN BIT 

0038 r 

FE13 

CPI 

ADC3 

{CHARACTERsDC3 (XOFF)? 

003A* 

20FT 

JRNZ 

LSTOUT 

;IF NOT, WAIT 

003C» 

CD Q05T* 

..WAIT: CALL 

..SIN 

{GET SERIAL INPUT 

00 3F* 

E67F 

ANY 

7FH 

;STRIP SIGN BIT 

0041 * 

FE11 

CPI 

ADCT 

;CHARACTERsDCI CZON}? 

0043 r 

20F7 

JRNZ 

..WAIT 

{IF MOT, WAIT 

0045' 

C3 0000:04 

..OUT: JMP 

SERIAL# 

;OUTPUT CHARACTER 

0048 1 

C5 

..SST: PUSH 

B 

,‘SAVE CHANNEL NUMBER/CHARACTER 

0049* 

D5 

PUSH 

D 

;SAVE FUNCTION NUMBER 

004A* 

1E00 

MV I 

E t 0 

•SET FUNCTION NUMBERsO 

004C* 

CD 0000:04 

CALL 

SERIAL# 

;GET SERIAL STATUS 

004F* 

1807 

JMPR 

..SSIC 

;CONTINUE 

0051 * 

C5 

..SIN: PUSH 

B 

{SAVE CHANNEL NUMBER/CHARACTER 

0052* 

D5 

PUSH 

D 

;SAVE FUNCTION NUMBER 

0053' 

1E01 . 

MV I 

E,1 

;SET FUNCTION NUMBERsI 

0055* 

CD 0000:04 

CALL 

SERIAL# 

;GET SERIAL STATUS 

0058* 

D1 

..SSIC: POP 

D 

{RESTORE FUNCTION NUMBER 

0059* 

Cl 

POP 

B 

{RESTORE CHANNEL NUMBER/CHARACTER 

005A* 

C9 

RET 


{DONE 
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SP442 - TUHBQDOS OPERATING SYSTEM SERIAL/PARALLEL I/O DRIVER (IMS 442) 

COPYRIGHT (C) 1981, SOFTWARE 2000, INC* 


0000* 

0040 

SERBST:: .WORD 

64 ; 

SERIAL BUFFER SIZE 

0002 ,r 

4* 

INTMSKir.BYTE. 

1<ROMDIS! 1<S0R2IE11<S1 RXIE .‘INTERRUPT MASK 

0003"' 

00 

SOBRs *BYTE 

0 

SERIAL 0 BAUD RATE 

0004" 

00 

SIBRs .byte: 

0 

SERIAL 1 BAUD RATE 

0005* 

0000 

SERBUFr .WORD 

0 

SERIAL BUFFER ADDRESS 

0007* 

0000 

SERPTRt .WORD 

0 

SERIAL BUFFER POINTER 

0009* 

00 

SOOCHRr .BYTE. 

0 

SERIAL 0 OUTPUT CHARACTER 

OOOA" 

00 

S10CHR: .BYTE 

0 

SERIAL 1 OUTPUT CHARACTER 

OOOB* 


SOISPHr 


SERIAL 0 INPUT SEMAPHORE 

OOOB" 

0000 

.WORD 

0 

SEMAPHORE COUNT 

000D ,r 

000D* 

•.SOIH: .WORD 

..SOIH 

SEMAPHORE P/D HEAD 

OOOF" 

OOOD* 

.WORD 

..SOIH 




t 


SERIAL 1 INPUT SEMAPHORE 

0011* 

0000 - 

SlISPHt .WORD 

0 

SEMAPHORE COUNT 

0013* 

0013" 

«.S1IHt .WORD 

..SIIH 

SEMAPHORE P/D HEAD 

0015* 

0013* 

.WORD 

..S1IH 




5 


SERIAL 0 OUTPUT SEMAPHORE 

0017* 

0000 

SOOSPH: .WORD 

0 

SEMAPHORE COUNT 

0019" 

0019* 

••SOOH; .WORD 

..SOOH 

SEMAPHORE P/D HEAD 

001B* 

00.19* 

• WORD 

..SOOH 




! 


SERIAL 1 OUTPUT SEMAPHORE 

001D" 

0000 

S10SPH: .WORD 

0 

SEMAPHORE COUNT 

001F* 

00 IF" 

..SIOH: .WORD 

..SI OH 

SEMAPHORE P/D HEAD 

0021* 

00 IF" 

.WORD 

• 

..SI OH 


0000* 


.LOC 

.PROG.# | 

LOCATE IN PROGRAM AREA 

0000» 

0038 

.WORD 

NITLEN+2 

;INITIALIZATION CODE LENGTH 

0002 * 

3E89 

SPINIT::MVI 

A,PPMODE 

;INITIALIZE 8255 

0004» 

D31F 

OUT 

PPCTL 


0006 > 

3EFF 

MVI 

A,OFFH ; 

[CLEAR PARALLEL PORTS 

0008’ 

D31C 

OUT 

PODATA 


OOOA* 

D31D 

OUT 

PI DATA 


000C* 

3E19 

MVI 

A,SPMODE 

;INITIALIZE UARTS 

OOOE T 

D310 

OUT 

SOCTRL 


0010* 

D312 

OUT 

SI CTRL 


0012* 

3EC3 

MVI 

A,JMP | 

[SET UP SERIAL 0 INTERRUPT VECTOR 

0014* 

32 0018 

STA 

3*8 


0017* 

21 0107* 

LXI 

H,SERISR 


001 A* 

22 0019 

SHLD 

(3*8)+1 


001D* 

3A 0002" 

LDA 

INTMSK 

GET INTERRUPT MASK 

0020* 

D318 

OUT 

SINTE 

ENABLE INTERRUPT MASKS 

0022* 

2A 0000** 

LHLD 

SERBSZ 

GET SERIAL BUFFER SIZE 

0025* 

29 

DAD 

H 

X2 

0026* 

CD 0000;04 

CALL 

ALLOC# 

ALLOCATE PACKET FOR SERIAL BUFFEP 

0029 * 

22 0005" 

SHLD 

SERBUF 

SAVE SERIAL BUFFER ADDRESS 

002C* 

22 0 007" 

SHLD 

SERPTR 

SET SERIAL BUFFER POINTER 

002F* 

CD 0000:05 

CALL 

NIT480# 

INITIALIZE IMS 480 SERIAL PORTS 

0032* 

21 0002* 

LXI 

H,SPINIT 

;GET INITIALIZATION CODE ADDRESS 
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0035* 

C3 0000:06 


JMP 

DEALOC* 

;DE-ALLOCATE INITIALIZATION CODR 

0036 


NITLEN 

* .-spiNir 

;INITIALIZATION CODE LENGTH 

0038* 

7B 

SERIAL: 

:MOV 

A,E 

;GET FUNCTION NUMBER 

0039» 

BT 


ORA 

A 

;FUNCTION NUMBERsO? 

003A* 

281T 


JRZ 

SERST 

•IF SO, CONTINUE 

003C* 

3D 


DCR 

A 

;FUNCTION NUMBERsI? 

003D* 

282A 


JRZ 

SERIN 

jIF SO, CONTINUE 

003F* 

3D 


DCR 

A 

;FUNCTION NUMBERs27 

0040* 

284A 


JRZ 

SEROUT 

;IF SO, CONTINUE 

0042* 

3D 


DCR 

A 

;FUNCTION NUMBERs3? 

0043* 

CA 01A2* 


JZ 

SERSBR 

JIF SO, CONTINUE 

0046* 

3D 


DCR 

A 

;FUNCTION NUMBER=4? 

0047* 

CA 01D5* 


JZ 

SERHBR 

jIF SO, CONTINUE 

.004A* 

3D 


DCR 

A 

;FUNCTION NUMBERs5? 

004B* 

CA Q1E4* 


JZ. 

SERSMC 

;IF SO, CONTINUE 

004E* 

3D 


DCR 

A 

;FUNCTION NUMBER=6? 

00 4F* 

CA 0208* 


JZ 

SERRMC 

;IF SO, CONTINUE 

0052* 

C9 


RET 


;£LSE, DONE 

0053* 

2A 0005** 

SERST: 

LHLD 

SERBUF 

;GET SERIAL BUFFER ADDRESS 

0056* 

ED5B OGOT 11, 


LDED 

SERPTR 

•GET SERIAL BUFFER POINTER 

005A* 

E5 

..STL: 

PUSH 

H 

;SAVE SERIAL BUFFER ADDRESS 

005B* 

AF 


XRA 

A 

;CLEAR CARRY/PRESET RETURN CODEsO 

005C’ 

ED52 


DSBC 

D 

;END OF SERIAL BUFFER? 

005E* 

El 


POP 

H 

;RESTORE SERIAL BUFFER ADDRESS 

005F* 

C8 


R2 


;IF END OF SERIAL BUFFER, DONE 

0060* 

78 


MOV 

A,B 

;ELSE, GET CHANNEL NUMBER 

0061 » 

96 


SUB 

M 

;NEXT CHARACTERs REQ U ESTED CHANNEL 

0062* 

23 


INI 

H 

;ADVANCE TO CHARACTER 

0063* 

4E 


MOV 

C,M 

;GET CHARACTER FROM BUFFER 

0064* 

23 


INX 

H 

;ADVANCE TO NEXT CHANNEL NUMBER 

0065* 

2F 


CMA 


;PRESET RETURN CODEsOFFH 

0066* 

ca 


RZ 


;IF REQUESTED CHANNEL, DONE 

0067* 

18F1 


JMPR 

..STL 

;CONTINUE 

0069* 

78 

SERIN: 

MOV 

A,B 

;GET CHANNEL NUMBER 

006A* 

FE02 


CPI 

2 

;CHANNEL NUMBERsO/1? 

006C* 

3805 


JRC 

..soil 

;IF SO, CONTINUE 

006E* 

CD 0000:07 


CALL 

IN480# 

\ ELSE, GET IMS 480 IN SEMAPHORE 

0071 ’ 

1809 


JMPR 

..ICOM 

;CONTINUE 

007 3* 

21 OOCB" 

..S01I: 

LXI 

H, SO IS PR 

[ ;GET SERIAL 0 IN SEMAPHORE 

0076* 

B7 


ORA 

A 

;CHANNEL NUMBERsO? 

0077* 

2803 


JRZ 

..ICOM 

;IF SO, CONTINUE 

0079 * 

21 0011" 


LXI 

H,S1ISPH 

[ ;ELSE, GET SERIAL 1 IN SEMAPHORE 

007 C* 

CD 0000:08 

..ICOM: 

CALL 

WAIT# 

;WAIT FOR CONSOLE INPUT 

007 F* 

CD 0053' 


CALL 

SERST 

;GET SERIAL CHANNEL STATUS 

0082* 

B7 


ORA 

A 

;CHARACTER AVAILABLE? 

0083* 

28E4 


JRZ 

SERIN 

;IF NOT, CONTINUE 

0085* 

79 


MOV 

A, C 

;ELSE, GET INPUT CHARACTER 

0086* 

F3 


DI 


;DISABLE INTERRUPTS 

0087* 

CD 018C* 


CALL 

MOVBUF 

;MOVE BUFFER TAIL DOWN 

008A' 

FB 


El 


;ENABLE INTERRUPTS 
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008R r 

C9 

m 

RET 


;DONE 

008C r 

78 

SEROUTk 

MOV 

A r B 

;GET CHANNEL NUMBER 

008D* 

FE02 


CPI 

2 

; CHANNEL NUMBEH=0/1? 

008F T 

3805 


JRC 

..SOTO 

;IF SO, CONTINUE 

0091* 

CD OOOOiO* 


CALL 

0UT480# 

;ELSE, GET IMS 480 OUT SEMAPHORE 

0094* 

181T 


JMPR 

..OCOM 

; CONTINUE 

0096» 

2T 0009* 

..SOIOr 

LXI 

H,SOOCHR 

;GET SERIAL 0 OUTPUT CHARACTER 

0099* 

B7 


ORA 

A 

; CHANNEL NUMBERsO? 

009A* 

2801 


JRZ 

..S01C 

;IF SO, CONTINUE 

009C* 

23 


INX 

H 

;GET SERIAL 1 OUTPUT CHARACTER 

009D' 

71 

..SOICt 

MOV 

M,C 

;SAVE OUTPUT CHARACTER 

009E T 

21 0017* 


LXI 

H,SOOSPH 

;GET SERIAL 0 OUT SEMAPHORE 

OOA1 * 

11 OOBF* 


LXI 

D,SOOPOL 

;GET SERIAL 0 OUT POLL ROUTINE 

00A4* 

B7 


ORA 

A 

; CHANNEL NUMBERsO? 

00 A5* 

2806 * 


JRI 

..OCOM 

;IF SO, CONTINUE 

00AT r 

21 001D** 


LXI 

H,SI OSPH 

;GET SERIAL 1 OUT SEMAPHORE 

00AA f 

11 00E3 r 


LXI 

D,S10P0L 

;GET SERIAL 1 OUT POLL ROUTINE 

00 AD* 

E5 

..OCOMr 

PUSH 

H 

;SAVE SEMAPHORE ADDRESS 

OOAE* 

D5 


PUSH 

D 

;SAVE POLL ROUTINE ADDRESS 

OOAF 1 

CD QOOOrOA 


CALL 

LNKPOL# 

;CREATE POLL ROUTINE 

00B2* 

21 OOBB* 


LXI 

H,..RET 

;GET RETURN ADDRESS 

00B5» 

E3 


XTHL 


;SIMULATE CALL/GET POLL ROUTINE 

00B6* 

23 


INX 

H 

;ADVANCE PAST LINE POINTERS 

00B7* 

23 


INX 

H 


00B8* 

23 


INX 

H 


00B9 f 

23 


INX 

H 


OOBA* 

E9 


PCHL 


;EXECUTE POLL ROUTINE 

OOBB' 

El 

..RET: 

POP 

H 

;RESTORE SEMAPHORE ADDRESS 

OOBC* 

C3 0000:08 


JMP 

WAIT# 

;DISPATCH IF NECESSARY 

OOBF* 


SO0POL: 



;SERIAL 0 OUTPUT POLL ROUTINE 

OOBF* 

0000 


• WORD 

0 

;SUCCESSOR LINK POINTER 

00C1 ' 

0000 


.WORD 

0 

;PREDECESSOR LINK POINTER 

OOC3 f 

DB10 

! 

IN 

SOCTRL 

;GET SERIAL 0 STATUS 

OOC5* 

CB4F 


BIT 

TBE, A 

;TRANSMIT BUFFER EMPTY? 

00C7* 

C8 


RZ 


;IF NOT, DONE 

00C8 1 

21 0003" 


LXI 

H,SOBR 

;ELSE, GET SERIAL 0 BAUD RATE CODE 

OOCB' 

CB76 


BIT 

6,M 

;CTS HANDSHAKING REQUESTED? 

OOCD* 

2803 


JRZ 

..NCTS 

;IF NOT, CONTINUE 

OOCF* 

CB7F 


BIT 

CTSN, A 

;CHECK CLEAR TO SEND (NOT) STATUS 

OOD1« 

CO 


RNZ 


;IF CLEAR TO SEND FALSE, DONE 

00D2* 

3A 0009" 

..NCTS: 

LDA 

SOOCHR 

;GET SERIAL 0 OUTPUT CHARACTER 

00D5 ’ 

D311 


OUT 

SODATA 

;OUTPUT CHARACTER 

00D7* 

21 OOBF* 


LXI 

H,SOOPOL 

;GET SERIAL 0 OUT POLL ROUTINE 

OODA* 

CD 0000:0B 


CALL 

UNLINK# 

;UNLINK POLL ROUTINE 

OODD* 

21 0017" 


LXI 

H,SOOSPH 

;GET SERIAL 0 OUT SEMAPHORE 

00 EO 1 

C3 0000:0C 


JMP 

SIGNAL# 

;SIGNAL PROCESS AS READY 

00E3 T 


S10P0L: 



;SERIAL 1 OUTPUT POLL ROUTINE 

00 E3* 

0000 


.WORD 

0 

;SUCCESSOR LINK POINTER 

00E5* 

0000 


.WORD 

0 

;PREDECESSOR LINK POINTER 


* 
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00ET r 

DB12 


IN 

SI CTRL 

GET SERIAL 1 STATUS 

00 E9 ' 

CB4F 


BIT 

TBE,A 

TRANSMIT BUFFER EMPTY? 

00EB f 

ca 


RZ 


IF NOT, DONE 

OOEC* 

21 0004* 


LZI 

H,S1BR 

ELSE, GET SERIAL 1 BAUD RATE CODE 

00EF T 

CB76 


BIT 

6,M. 

CTS HANDSHAKING REQUESTED? 

00F1 * 

2803 


JRZ 

..NCTS 

IF NOT, CONTINUE 

OOF3* 

CB7F 


BIT 

CTSN,A 

CHECK CLEAR TO SEND (NOT) STATUS 

0QF5* 

CO 


RNZ 


IF CLEAR TO SEND FALSE, DONE 

OOF6 * 

3A 000A* 

..NCTS; 

LDA 

S10CHR 

GET SERIAL 1 OUTPUT CHARACTER 

00F9* 

D313 


OUT 

SI DATA 

OUTPUT CHARACTER 

OOFB* 

21 00 E3* 


LZX 

H,S10P0L 

?GET SERIAL 1 OUT POLL ROUTINE 

OOFE* 

CD 0000;OB 


CALL 

UNLINK# j 

'UNLINK POLL ROUTINE 

Q101» 

21 001D* 


LZI 

HySIOSPH 

:GET SERIAL 1 OUT SEMAPHORE 

Q104« 

C3 0000;0C 


JMP 

SIGNAL# ;SIGNAL PROCESS AS READY 

0107* 

ED73 0000:00 

SERISH: 

SSPD 

INTSP#- ; 

SAVE STACK POINTER 

Q10B* 

31 0000:0E 


LZI 

SP,INTSTK# :SET UP AUX STACK POINTER 

010E T 

F5 


PUSH 

PSW ; 

.SAVE REGISTERS 

010F* 

C5 


PUSH 

B 


0110 f 

D5 


PUSH 

D 


0111* 

E5 


PUSH 

H 


0112* 

CD 0126* 


CALL 

..SOI 

CHECK FOR SERIAL 0 INPUT 

0115* 

CD 013D* 


CALL 

..SI I 

CHECK FOR SERIAL 1 INPUT 

0118* 

CD 0000:OF 


CALL 

ISR480# 

CHECK FOR IMS 480 INPUT 

011B* 

ET 


POP 

H 

; RESTORE REGISTERS 

one* 

D1 


POP 

D 


01 ID* 

Cl 


POP 

B 


011 E* 

FI 


POP 

PSW 


01 IF* 

ED7B 0000:0D 


LSPD 

INTSP# 

RESTORE STACK POINTER 

0123' 

C3 0000:10 


JMP 

ISRZIT# 

CONTINUE 

0126* 

DB10 

..SOI: 

IN 

SOCTRL 

GET SERIAL 0 STATUS 

0128* 

CB47 


BIT 

RDA, A 

CHARACTER AVAILABLE 

012A* 

C8 


RZ 


IF NOT, DONE 

012B* 

21 OOOB** 


LZI 

H,SOISPH 

;GET SERIAL 0 INPUT SEMAPHORE 

012E* 

E5 


PUSH 

H 

SAVE SERIAL 0 INPUT SEMAPHORE 

012F* 

CD 0000:0C 


CALL 

SIGNAL# 

SIGNAL PROCESS AS READY 

0132* 

D1 


POP 

D 

RESTORE SERIAL 0 INPUT SEMAPHORE 

0133* 

DB11 


IN 

SODATA 

GET SERIAL 0 DATA CHARACTER 

0135* 

4F 


MOV 

Cy A 

SERIAL 0 DATA CHARACTER TO C-REG 

0136* 

0600 


MV I 

ByO 

SET CHANNEL NUMBERsO 

0138* 

21 0003" 


LZI 

HySOBR 

GET SERIAL 0 BAUD RATE 

013B* 

1815 


JMPR 

SERISC 

CONTINUE 

01 3D* 

DB12 

..S1I: 

IN 

SI CTRL 

GET SERIAL 1 STATUS 

013F* 

CB47 


BIT 

RDA, A 

CHARACTER AVAILABLE 

0141« 

C8 


RZ 


IF NOT, DONE 

0142* 

21 0011" 


LZI 

HySlISPH 

;GET SERIAL 1 INPUT SEMAPHORE 

0145* 

E5 


PUSH 

H 

SAVE SERIAL 1 INPUT SEMAPHORE 

0146* 

CD 0000:OC 


CALL 

SIGNAL# 

SIGNAL PROCESS AS READY 

0149 ' 

D1 


POP 

D 

RESTORE SERIAL 1 INPUT SEMAPHORE 

01 4A* 

DB1 3 


IN 

SI DATA 

GET SERIAL 1 DATA CHARACTER 

014C* 

4F 


MOV 

Cy A 

SERIAL 1 DATA CHARACTER TO C-REG 

014D* 

0601 


MV I 

B, 1 

SET CHANNEL NUMBERr1 

014F* 

21 0004" 


LZI 

H,S1BR 

GET SERIAL 1 BAUD RATE 
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0152' 

CB7E 

SERISCriBir 

TrVt 

;SIGR BIT ON BAUD RATE CODE? 

0154' 

281C 

JRZ 

*.NCC 

;IF NOT, CONTIRUE 

0156' 

CBB? 

RES 

7,c 

•ELSE, STRIP SIGN BIT ON CHARACTER 

0158* 

CD 0000rtl 

CALL 

SLVRES* 

;CHECK FOR SLAVE RESET 

015B« 

3A 0000J-T2 

LDA 

ATRCHR# 

{GET ATTENTION CHARACTER 

015E' 

91 

SUB 

C 

{CHARACTERsATTENTION CHARACTER? 

oisf*- 

2011 

JRNZ 

**RCC 

;IF NOT, CONTIRUE 

0161* 

3C 

IRR 

A 

•ELSE, GET SEMAPHORE COUNTsI 

0162* 

12 

STAX 

D 

;SET SEMAPHORE COUNTsI 

0163' 

C5 

**FBL: PUSS 

B 

•SAVE CHARACTER/CHANNEL NUMBER 

0164' 

CD 0053* 

CALL 

SERST 

;GET SERIAL CHANNEL STATUS 

0167* 

Cl 

POF 

B 

{RESTORE CHARACTER/CHANNEL NUMBER 

0168* 

B7 

ORA 

A 

{CHARACTER AVAILABLE? 

0169' 

2807 

JHX 

*.RCC 

{IF MOT, CONTIRUE 

G16B' 

C5 

PUSH 

B 

{SAVE CHARACTER/CHANNEL NUMBER 

Q16C' 

CD 018C» 

CALL 

MOVBUF 

{MOVE BUFFER TAIL DOWN 

016F' 

Cl 

POP 

B 

{RESTORE CHARACTER/CHANNEL NUMBER 

0170' 

18F1 

JMPR 

..FBL 

; CONTINUE 

0172' 

2A 0000"' 

. *RCC: LHLD 

SERBSZ 

{GET SERIAL BUFFER SIZE 

0175' 

29 

DAD 

H 

{X2 

0176' 

ED5B 0005" 

LDED 

SERBUF 

{GET SERIAL BUFFER ADDRESS 

017 A' 

19 

DAD 

D 

{CALC END OF SERIAL BUFFER ADORES-** 

017B' 

ED5B 0007" 

LDED 

SERPTR 

{GET SERIAL BUFFER POINTER 

017F* 

B7 

ORA 

A 

{CLEAR CARRY FLAG 

0180' 

ED52 

DSBC 

D 

{SERIAL BUFFER FULL? 

0182* 

C8 

RZ 


{IF SO, DONE 

0183' 

EB 

XCHG 


{SERIAL BUFFER POINTER TO HL-REG 

0184' 

70 

MOV 

M,B 

{STORE CHANNEL NUMBER IN BUFFER 

0185’ 

23 

INX 

H 

- 

0186' 

71 

MOV 

M,C 

{STORE INPUT CHARACTER IN BUFFER 

0187' 

23 

IRX 

H 


0188' 

22 0007" 

SHLD 

SERPTR 

{UPDATE SERIAL BUFFER POINTER 

018B' 

C9 

RET 


{DONE 

018C' 

EB 

MOVBUF: XCHG 


{SOURCE ADDRESS TO DE-REG 

018D' 

2A 0007" 

LHLD 

SERPTR 

{GET SERIAL BUFFER POINTER 

0190’ 

ED52 

DSBC 

D 

{CALC LENGTH OF TAIL TO MOVE DOWN 

0192' 

4D 

MOV 

C,L 

{LENGTH OF TAIL TO BC-REG 

0193’ 

44 

MOV 

B,H 


0194* 

EB 

XCHG 


{SOURCE ADDRESS TO HL-REG 

0195' 

5D 

MOV 

E,L 

{COPY SOURCE ADDRESS INTO DE-REG 

0196* 

54 

MOV 

D,H 


0197* 

IB 

DCX 

D 

{CALC DESTINATION ADDRESS 

0198’ 

IB 

DCX 

D 


0199’ 

2802 

JRZ 

..X 

{IF LENGTH OF TAILsO, CONTINUE 

019B» 

ED BO 

LDIR 


{ELSE, MOVE TAIL DOWN 

019D» 

ED53 0007" 

..X: SDED 

SERPTR 

{UPDATE SERIAL BUFFER POINTER 

01A1' 

C9 

RET 


{DONE 

01A2 ’ 

78 

SERSBR: MOV 

A,B 

{GET CHANNEL NUMBER 

01 A3’ 

FE02 

CPI 

2 

{CHANNEL NUMBERsO/1? 

01A5 • 

D2 0000:13 

JNC 

SBR480# 

{IF NOT, CONTINUE 

01A8' 

21 0003" 

LXI 

H,SOBR 

{ELSE, GET SERIAL 0 BAUD RATE 

01AB * 

B7 

ORA 

A 

{CHANNEL NUMBERsO? 
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01 AC* 

2801 


JRZ 

..COMT 

;IF SO, CONTINUE 

01AE T 

23 


INX 

H 

• else, GET SERIAL 1 BAUD RATE 

01AF* 

71 

• 

.COMt: MOV 

M,C 

;SAVE BAUD RATE CODE 

01B0» 

CD Q1C6* 


CALL 

GETBTV 

;GET BAUD RATE TIMER VALUE 

01B3 f 

78 


MOV 

A,B 

;G£T CHANNEL NUMBER 

01B4* 

BT 


ORA 

A 

;CHANNEL NUMBERsO? 

01B5 r 

3E36 


MVI 

A,T0CMD 

;GET TIMER 0 COMMAND 

oiar* 

0E14 


MVI 

C,TIMO 

;GET TIMER 0 DATA REGISTER 

01B9 1 

2804 


JRZ 

..COM2 

;IF CHANNEL NUMBERsO, CONTINUE 

01BB* 

3ET6 


MVI 

A, T1CMD 

,* ELSE, GET TIMER 1 COMMAND 

01BD-* 

0E1 5 


MVI 

C,TIM1 

;GET TIMER 1 DATA REGISTER 

01BF* 

D31T 

• 

•COM2: OUT 

TIMCTL 

;SELECT TIMER 

oict* 

ED59 


OUTP 

E 

;OUTPUT LSB OF TIMER VALUE 

01C3 r 

ED51 


OUTP 

D 

•OUTPUT MSB OF TIMER VALUE 

01C5 T 

C9 

• 

RET 


;DONE 

0TC6» 

79 

t 

GETBTV::MQV 

A, C 

;GET REQUESTED BAUD RATE CODE 

oicr r 

E60F 


AMI 

OFH 

;EXTRACT RELEVANT BITS 

01C9» 

87 


ADD 

A 

;X2 

01CA* 

5F 


MOV 

E, A 

;T0 E-REG 

01CB* 

1600 


MVI 

D,0 

:MAXE IT DOUBLE LENGTH 

01 CD 1 

21 0000:14 


LXI 

H.BRTBL# :GET BAUD RATE TABLE 

01D0 * 

19 


DAD 

D 

;INDEX INTO TABLE 

01D1 ' 

5E 


MOV 

E,M 

;GET TIMER VALUE 

01D2* 

23 


INX 

H 


01D3 T 

56 


MOV 

D,M 


01D4* 

C9 


RET 


;DONE 

01D5» 

78 

SERRBR: MOV 

A,B 

;G£T CHANNEL NUMBER 

01D6 f 

FE02 


CPI 

2 

;CHANNEL NUMBERsO/1? 

01D8» 

D2 0000:15 


JNC 

RBR480# 

jIF NOT, CONTINUE 

01DB* 

21 0003" 


LXI 

H,SOBR 

;ELSE, GET SERIAL 0 BAUD RATE 

01DE* 

B7 


ORA 

A 

;CHANNEL NUMBERsO? 

01DF 1 

2801 


JRZ 

• •COM 

;IF SO, CONTINUE 

01 El » 

23 


INX 

H 

;ELSE, GET SERIAL 1 BAUD RATE 

01 E2' 

7E 

• 

•COM: MOV 

A,M 

;GET CURRENT BAUD RATE CODE 

01E3* 

C9 


HET 


;DONE 

01E4* 

78 

SERSMC: MOV 

A,B 

;GET CHANNEL NUMBER 

01E5* 

FE02 


CPI 

2 

;CHANNEL NUMBERsO/1? 

Q1E7 ’ 

D2 0000:16 


JNC 

SMC480# 

;IF NOT, CONTINUE 

01EA* 

B7 


ORA 

A 

;CHANNEL NUMBERsO? 

01EB» 

3A 0002" 


LDA 

INTMSK 

;GET INT MASK 

01 EE T 

200A 


JRNZ 

..CHI 

; IF CHANNEL NUMBER NOTsO, CONTINUE 

01F0* 

CBBF 


RES 

SO RTS N, 

A ;CLEAR SERIAL 0 REQ TO SEND (NOT) 

01F2* 

CB79 


BIT 

7,C 

;SERIAL 0 REQ TO SEND TO BE ON? 

01F4* 

200C 


JRNZ 

..COM 

;IF SO, CONTINUE 

01F6 1 

CBFF 


SET 

SORTSN, 

A ;ELSE, SET SERIAL 0 RTS (NOT) 

01F8 * 

1808 


JMPR 

..COM 

;CONTINUE 

01FA« 

CBA7 

• 

•CHI: RES 

S1RTSN, 

A ;CLEAR SERIAL 1 REQ TO SEND (NOT) 
;SERIAL 1 REQ TO SEND TO BE ON? 

01FC* 

CB79 


BIT 

7,C 

01FE T 

2002 


JRNZ 

..COM 

;IF SO, CONTINUE 

0200' 

CBE7 


SET 

S1RTSN, 

A ;ELSE, SET SERIAL 1 RTS (NOT) 

0202 f 

32 0002" 

• 

.COM: STA 

INTMSK 

;UPDATE INT MASK 
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0205’ 

D318 

OUT 

SINTE 

;SET SERIAL 1 REQUEST TO SEND 

0207* 

C9 

RET 


;DONE 

0208 r 

78 

SERRMC: MOV 

A,B 

;GET CHANNEL NUMBER 

0209' 

FE02 

CPI 

2 

; CHANNEL NUMBERsO/1? 

020B r 

D2 0000:17 

JNC 

RMC480# 

;IF NOT, CONTINUE 

020 E T 

BT 

ORA 

A 

; CHANNEL NUMBERsO? 

020F r 

DB12 

IS 

SI CTRL 

;GET SERIAL 0 STATUS 

02t1 * 

2802 

JRZ 

• •COM 

?IF CHANNEL NUMBERsO, CONTINUE 

0213* 

DB12. 

IN 

SI CTRL 

•ELSE, GET SERIAL 1 STATUS 

0215* 

E680 

.•COM: ANI 

1<CTSN 

;EXTRACT CLEAR TO SEND (NOT) 

0217* 

EE80 

XRI 

1<CTSN 

; COMPLIMENT IT 

0219* 

C9 

RET 

• 


;DONE 

021 A* 

D31C 

POOUT:: OUT 

PODATA 

; OUTPUT BYTE TO PARALLEL 0 

021C’ 

C9 

RET 


;DONE 

021D* 

D31D 

PIOUT:: OUT 

PI DATA 

; OUTPUT BYTE TO PARALLEL 1 

021F* 

C9 

RET 


jDONE 

0220* 

DB1E 

P2IN:: IN 

P2DATA 

; INPUT BYTE FROM PARALLEL 2 

0222* 

C9 

RET 


;DONE 

0223’ 

21 0002** 

EBPROM::L2T 

H,INTMSK 

;GET INTERRUPT MASK 

0226* 

CB86 

RES 

ROMDIS,M 

;RESET ROM DISABLE BIT 

0228* 

7E 

MOV 

A,M 

;GET INTERRUPT MASK 

0229’ 

D318 

OUT 

SINTE 

; TURN ON BOOTSTRAP ROM 

022B» 

21 FCOQ 

LZI 

H,BOOTPR 

;RETURN BOOT PROM ADDR 

022E* 

C9 

RET 


;DONE 

022F* 

21 0002" 

DBPROM::LXI 

H,INTMSK 

;GET INTERRUPT MASK 

0232’ 

CBC6 

SET 

ROMDIS,M 

;SET ROM DISABLE BIT 

0234* 

7E 

MOV 

A,M 

;GET INTERRUPT MASK 

0235* 

D318 

OUT 

SINTE 

;TURN OFF BOOTSTRAP ROM 

0237’ 

C9 

RET 


;DONE 
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COPYRIGHT (C) 19fl1 

AUTHORS i RONALD E. 

MICHAEL D 

VERSIONt 09/08/81 

IDENT SER480 


•INSERT DREQUATE 


00 EO 

ioBASE. 

- 

OEOH 

OOEO 

S2DATA- 

- 

IOBASE+OOH 

00 El 

S2IER 

s. 

I0BASE+01H 

00E2 

S2IIDR. 

3. 

I0BASE+02H 

Q0E3 

S2LCR 

3 

I0BASE+03H 

OOE4 

S2MCR 

s 

I0BASE+04H 

00E5 

S2LSR 

s 

I0BASE+05H 

00 E6 

S2MSR 

* 

I0BASE+06H 

00E8 

S3DATA 

3 

I0BASE+08H 

OOE9 

S3IER 

3 

I0BASE+09H 

00 EA 

S3IIDR 

•m 

IOBASE+OAH 

OOEB 

S3LCR 

3 

IOBASE+OBH 

OOEC 

S3MCR 

3 

IOBASE+OCH 

OOED 

S3LSR 

s 

IOBASE+ODH 

OOEE 

S3MSR 

• 

IOBASE+OEH 

OOFO 

S4DATA 

- 

I0BASE+10H 

OOF1 

S4IER 

3 

IOBASE+11H 

OOF2 

S4IIDR 

s 

I0BASE+12H 

00F3 

S4LCR 

3 

IOBASE+13H 

00F4 

S4MCR 


IOBASE+14H 

00F5 

S4LSR 


IOBASE+15H 

OOF6 

S4MSR 


IOBASE+16H 

OOF8 

S5DATA 

- 

IOBASE+18H 

OOF9 

S5IER 

3 

IOBASE+19 H 

OOFA 

S5IIDR 

3 

IOBASE+1AH 

OOFB 

S5LCR 

3 

I0BASE+1BH 

OOFC 

S5MCR 

3 

IOBASE+1CH 

OOFD 

S5LSR 

3 

I0BASE+1DH 

OOFE 

S5MSR 

3 

IOBASE+1 EH 

0001 

IEHCW 

s 

01H 

0003 

LCRCW 

3 

03H 

0003 

MCRCW 

3 

03H 

0000 

• 

RDA 


0 

0005 

TBE 

3 

5 

0004 

CTS 

3 

4 


SOFTWARE 2000, INC* 

RAISES 

BUSCH 


; MODULE ID 

; DRIVER SYMBOLIC EQUIVALENCES 

;I/0 PORT BASE 

:SERIAL 2 DATA REGISTER 
;SERIAL 2. INTERRUPT ENABLE REGISTER 
; SERIAL 2 INTERRUPT ID REGISTER 
;SERIAL 2 LINE CONTROL REGISTER 
;SERIAL 2 MODEM CONTROL REGISTER 
; SERIAL 2 LINE STATUS REGISTER 
;SERIAL 2 MODEM STATUS REGISTER 

;SERIAL 3 DATA REGISTER 
;SERIAL 3 INTERRUPT ENABLE REGISTER 
;SERIAL 3 INTERRUPT ID REGISTER 
;SERIAL 3 LINE CONTROL REGISTER 
;SERIAL 3 MODEM CONTROL REGISTER 
;SERIAL 3 LINE STATUS REGISTER 
;SERIAL 3 MODEM STATUS REGISTER 

;SERIAL 4 DATA REGISTER 
;SERIAL 4 INTERRUPT ENABLE REGISTER 
;SERIAL 4 INTERRUPT ID REGISTER 
; SERIAL 4 LINE CONTROL REGISTER 
;SERIAL 4 MODEM CONTROL REGISTER 
;SERIAL 4 LINE STATUS REGISTER 
{.SERIAL 4 MODEM STATUS REGISTER 

{SERIAL 5 DATA REGISTER 
{SERIAL 5 INTERRUPT ENABLE REGISTER 
{SERIAL 5 INTERRUPT ID REGISTER 
{SERIAL 5 LINE CONTROL REGISTER 
{SERIAL 5 MODEM CONTROL REGISTER 
{SERIAL 5 LINE STATUS REGISTER 
{SERIAL 5 MODEM STATUS REGISTER 

;INT ENABLE REGISTER CONTROL WORD 
{LINE CONTROL REGISTER CONTROL WORD 
{MODEM CONTROL REGISTER CONTROL WORI 


{RECEIVED DATA AVAILABLE BIT 
{TRANSMIT BUFFER EMPTY BIT 
{CLEAR TO SEND BIT 
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I 


0000* 



.LOC 

.DATA.# 

;LOCATE IN DATA AREA 

0000" 

00 

S2BR: 

.BYTE 

0 

;SERIAL 2 BAUD RATE 

0001® 

00 

S3BR: 

.BYTE 

0 

;SERIAL 3 BAUD RATE 

0002* 

00 

S4BR: 

.BYTE 

0 

;SERIAL 4- BAUD RATE 

0003* 

00 

S5BR; 

.BYTE 

0 

;SERIAL 5 BAUD RATE 

0004* 

00 

S20CHR: 

.BYTE 

0 

;SERIAL 2 OUTPUT CHARACTER 

0005* 

00 

S30CHR: 

•BYTE 

0 

;SERIAL 3 OUTPUT CHARACTER 

0006* 

00 

S40CHRr 

.BYTE 

0 

;SERIAL 4 OUTPUT CHARACTER 

0007* 

00 

S50CHR: 

•BYTE 

0 

;SERIAL 5 OUTPUT CHARACTER 

0008* 


S2ISPH: 



;SERIAL 2 INPUT SEMAPHORE 

0008* 

0000 


.WORD 

0 

;SEMAPHORE COUNT 

000A* 

OOOA* 

. .S2IH: 

.WORD 

..S2IH 

;SEMAPHORE P/D HEAD 

OOOC* 

000A* ' 


• WORD 

..S2IH 




? 



;SERIAL 3 INPUT SEMAPHORE 

OOOE" 

0000 

S3ISPH: 

• WORD 

0 

{SEMAPHORE COUNT 

0010" 

0010" 

..S3IHt 

.WORD 

..S3IH 

{SEMAPHORE P/D HEAD 

0012* 

0010* 


.WORD 

..S3IH 


0014* 


S4ISPH: 



{SERIAL 4 INPUT SEMAPHORE 

0014" 

0000 


• WORD 

0 

{SEMAPHORE COUNT 

0016" 

0016" 

..S4IH: 

.WORD 

•.S4IH 

{SEMAPHORE P/D HEAD 

0018* 

0016" 


.WORD 

..S4IH 




i 



{SERIAL 5 INPUT SEMAPHORE 

OOU" 

0000 

S5ISPH: 

.WORD 

0 

{SEMAPHORE COUNT 

001C» 

001C" 

..S5IH: 

.WORD 

..S5IH 

{SEMAPHORE P/D HEAD 

00 IE" 

001C" 


.WORD 

..S5IH 




» 



{SERIAL 2 OUTPUT SEMAPHORE 

0020* 

0000 

S20SPH: 

.WORD 

0 

{SEMAPHORE COUNT 

0022" 

0022" 

..S20H: 

.WORD 

• .S20H 

{SEMAPHORE P/D HEAD 

0024" 

0022" 


• WORD 

•.S20H 




1 



{SERIAL 3 OUTPUT SEMAPHORE 

0026" 

0000 

S30SPH: 

• WORD 

0 

{SEMAPHORE COUNT 

0028" 

0028" 

..S30H: 

.WORD 

..S30H 

{SEMAPHORE P/D HEAD 

002A" 

0028" 


•WORD 

..S3OH 




! 



{SERIAL 4 OUTPUT SEMAPHORE 

002C" 

0000 

S40SPH: 

.WORD 

0 

{SEMAPHORE COUNT 

002E" 

002E" 

..S40H: 

• WORD 

•.S40H 

{SEMAPHORE P/D HEAD 

0030" 

002E" 


.WORD 

..S40H 




> 



{SERIAL 5 OUTPUT SEMAPHORE 

0032" 

0000 

S50SPH: 

.WORD 

0 

{SEMAPHORE COUNT 

0034" 

0034" 

..S50H: 

.WORD 

..S50H 

{SEMAPHORE P/D HEAD 

0036" 

0034" 

* 

• WORD 

..S50H 


0000* 


9 

•LOC 

.PROG.# 

{LOCATE IN PROGRAM AREA 
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0000 * 

0026 

•WORD 

• 

NITLEN+2 

;INITIALIZATION CODE LENGTH 

0002 ( 

3E03 

NXT4801:MVI 

A r LCRCW 

;GET LINE CONTROL REGISTER VALUE 

0004 r 

D3E3 

OUT 

S2LCR 

;SET LINE CONTROL REGISTER 0 

0006' 

D3EB 

OUT 

S3LCR 

;SET LINE CONTROL REGISTER 1 

0008* 

D3F3 

OUT 

S4LCH 

;SET LINE CONTROL REGISTER 2 

000A* 

D3FB 

OUT 

S5LCR 

;SET LINE CONTROL REGISTER 3 

OOOC* 

3EQ3 

MVI 

A V MCRCW 

;GET MODEM CONTROL REGISTER VALUE 

OOOE* 

D3E4 

OUT 

S2MCR 

;SET MODEM CONTROL REGISTER 0 

0010* 

D3EC 

OUT 

S3MCR 

;SET MODEM CONTROL REGISTER 1 

0012* 

D3F4 

OUT 

S4MCR 

;SET MODEM CONTROL REGISTER 2 

0014* 

D3FC 

OUT 

S5MCR 

;SET MODEM CONTROL REGISTER 3 

0016* 

3E01 

MVI 

A, IERCW 

,*GET INT ENABLE REGISTER VALUE 

0018* 

D3E1 

OUT 

S2IER 

;SET INT ENABLE REGISTER 0 

001 A* 

D3E9 

OUT 

S3IER 

;SET INT ENABLE REGISTER T 

001C* 

D3F1 . 

OUT 

S4IER 

;SET INT ENABLE REGISTER 2 

001E* 

D3F9 

OUT 

S5IER 

;SET INT ENABLE REGISTER 3 

0020* 

21 0002* 

LXI 

H,NIT480 

;GET INITIALIZATION CODE ADDRESS 

0023' 

C3 0000:04 

JMP 

DEALOC# 

; DE-ALLOCATE INITIALIZATION CODE 

0024 


NITLEN s .-NIT480 

; INITIALIZATION CODE LENGTH 

0026* 

21 0008** 

IN480 s: LXI 

H,S2ISPH 

;GET SERIAL 2 IN SEMPAHORE 

0029* 

D602 

SUI 

2 

; REMOVE CHANNEL NUMBER BIAS 

002S* 

C3 

RZ 


;IF CHANNEL NUMBERs2, DONE 

002C* 

21 OOOE" 

LXI 

H,S3ISPH 

; ELSE, GET SERIAL 3 IN SEMPAHORE 

002F* 

3D 

DCR 

A 

; CHANNEL NUMBER=3? 

0030* 

C8 

RZ 


;IF SO, DONE 

0031 * 

21 0014" 

LXI 

H,S4ISPH 

;ELSE, GET SERIAL 4 IN SEMPAHORE 

0034* 

3D 

DCR 

A 

;CHANNEL NUMBER=4? 

0035* 

C8 

RX 


;IF SO, DONE 

0036* 

21 001 A" 

LXI 

H,S5ISPH 

;ELSE, GET SERIAL 5 IN SEMPAHORE 

0039* 

C9 

RET 


;DONE 

003A* 

21 0004" 

0UT480::LXI 

H,S20CHR 

;GET SERIAL 2 OUTPUT CHARACTER 

003D* 

CD 01B7* 

CALL 

CHNMBC 

;D0 COMMON SETUP 

0040* 

71 

MOV 

M,C 

;SAVE OUTPUT CHARACTER 

0041 » 

21 0020" 

LXI 

H,S20SPH 

;GET SERIAL 2 OUT SEMAPHORE 

0044* 

11 005F* 

LXI 

D,S20P0L 

;GET SERIAL 2 OUT POLL ROUTINE 

004T* 

C3 

RX 


;IF CHANNEL NUMBER=2, DONE 

0048* 

21 0026" 

LXI 

H,S30SPH 

; ELSE, GET SERIAL. 3 OUT SEMAPHORE 

004B* 

11 0085* 

LXI 

D,S30P0L 

;GET SERIAL 3 OUT POLL ROUTINE 

004E* 

3D 

DCR 

A 

; CHANNEL NUMBER=3? 

004F* 

C8 

RZ 


;IF SO, DONE 

0050* 

21 002C" 

LXI 

H,S40SPH 

;ELSE, GET SERIAL 4 OUT SEMAPHORE 

0053» 

11 OOAB* 

LXI 

D,S40P0L 

;GET SERIAL 4 OUT POLL ROUTINE 

0056 « 

3D 

DCR 

A 

; CHANNEL NUMBER*4? 

00 57 * 

C8 

RZ 


;IF SO, DONE 

0058* 

21 0032" 

LXI 

H,S50SPH 

;ELSE, GET SERIAL 5 OUT SEMAPHORE 

005B* 

11 00D1* 

LXI 

D,S50P0L 

;GET SERIAL 5 OUT POLL ROUTINE 

005E* 

C9 

RET 


;DONE 

005F* 


S20P0L: 


;SERIAL 2 OUTPUT POLL ROUTINE 

005F* 

0000 

.WORD 

0 

;SUCCESSOR LINK POINTER 






( 
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0061 » 

0000 . 

.WORD 

* 

o ; 

PREDECESSOR LINK" POINTER 

0063* 

DBE5 

» 

lit 

S2LSR ; 

GET SERIAL 2 LINE STATUS REGISTER 

0065* 

CB6F 

BIT 

TBE,A ; 

TRANSMIT BUFFER EMPTY? 

0067* 

ca 

RZ 


IF NOT, DONE 

0068 f 

2T 0000"- 

LXI 

H,S2BR ; 

ELSE, GET SERIAL 2 BAUD RATE- 

Q06B* 

CB76 

BIT 

6 ,M j 

CLEAR TO SEND HANDSHAKING REQUESTET 

0060 p 

280? 

JRZ 

..NCTS 

IF NOT, CONTINUE 

QQ6F r 

0BE6. 

IN 

S2MSR 

GET SERIAL 2 MODEM STATUS REGISTER 

0071* 

CB67 

BIT 

CTS,A 

CLEAR TO SEND STATUS TRUE? 

0073* 

C8 

RZ 


IF NOT, DONE 

00T4» 

3A 0004"- 

..NCTS: LOA 

S20CHR 

GET SERIAL 2 OUTPUT CHARACTER 

007T* 

03 £0 

OUT 

S20ATA 

OUTPUT CHARACTER 

0079* 

2T 005F* 

LXI 

H f S20P0L 

;GET SERIAL 2 OUT POLL ROUTINE 

007C T 

CB 0000:0? 

CALL 

UNLINK# 

UNLINK POLL ROUTINE 

007F* 

21 0020* 

LXI 

H,S20SPH 

;GET SERIAL 2 OUT SEMAPHORE 

0082* 

C3 0000:06 

JMF 

• 

SIGNAL# 

SIGNAL PROCESS AS READY 

008?* 


S30POL: 


SERIAL 3 OUTPUT POLL ROUTINE 

0085* 

0000 

..WORD 

0 

SUCCESSOR LINK POINTER 

0087* 

0000 

•WORD 

0 

PREDECESSOR LINK POINTER 

0089« 

OB ED 

IN 

S3LSR 

GET SERIAL 3 LINE STATUS REGISTER 

008B* 

CB6F 

BIT 

TBE,A 

TRANSMIT BUFFER EMPTY? 

0080* 

ca 

RZ 


IF NOT, DONE 

008E* 

21 0001" 

LXI 

H,S3BR 

ELSE, GET SERIAL 3 BAUD RATE 

0091 • 

CB76 

BIT 

9 

6 ,M 

CLEAR TO SEND HANDSHAKING REQUESTEI 

0093’ 

280? 

JRZ 

..NCTS 

IF NOT, CONTINUE 

0095* 

DBEE 

IN 

S3MSR 

GET SERIAL 3 MODEM STATUS REGISTER 

0097' 

CB67 

BIT 

CTS, A 

CLEAR TO SEND STATUS TRUE? 

0099* 

C8 

RZ 


IF NOT, DONE 

009A* 

3A 0005" 

•.NCTS: LOA 

S30CHR 

GET SERIAL 3 OUTPUT CHARACTER 

0090* 

D3E8 

OUT 

S3DATA 

OUTPUT CHARACTER 

009F* 

21 0085* 

LXI 

H,S30P0L 

;GET SERIAL 3 OUT POLL ROUTINE 

OOA2 * 

CD 0000:05 

CALL 

UNLINK# 

UNLINK POLL ROUTINE 

OOA5 * 

21 0026" 

LXI 

H,S30SPH 

;GET SERIAL 3 OUT SEMAPHORE 

00A8* 

C3 0000:06 

JMP 

SIGNAL# 

SIGNAL PROCESS AS READY 

OOAB* 


S40P0L: 


SERIAL 4 OUTPUT POLL ROUTINE 

OOAB* 

0000 

.WORD 

0 

SUCCESSOR LINK POINTER 

00 AD* 

0000 

.WORD 

0 

PREDECESSOR LINK POINTER 

OOAF* 

DBF5 

IN 

S4LSR 

GET SERIAL 4 LINE STATUS REGISTER 

00B1 * 

CB6F 

BIT 

TBE, A 

TRANSMIT BUFFER EMPTY? 

00B3 ’ 

C8 

RZ 


IF NOT, DONE 

00B4 * 

21 0002" 

LXI 

H,S4BR 

ELSE, GET SERIAL 4 BAUD RATE 

00B7 » 

CB7 6 

BIT 

9 

6,M 

CLEAR TO SEND HANDSHAKING REQUESTEI 

00B9 r 

2805 

JRZ 

..NCTS 

IF NOT, CONTINUE 

OOBB* 

0BF6 

IN 

S4MSR 

GET SERIAL 4 MODEM STATUS REGISTER 

OOBD* 

CB67 

BIT 

CTS, A 

CLEAR TO SEND STATUS TRUE? 

OOBF* 

C8 

RZ 


IF NOT, DONE 





PSA Macro Assembler [C12011-0102 ] 


Page 5 


<52480 - TURBODOS OPERATING SYSTEM SERIAL DRIVER (IMS 480) 
JPYRIGHT (C) 1981, SOFTWARE 2000, INC. 


oaco» 

3A 0006" 

• 

•NCTS: LDA 

S40CHR ; 

GET SERIAL 4 OUTPUT CHARACTER 

0003* 

D3F0 


our 

S4DATA | 

OUTPUT CHARACTER 

OOC5 * 

21 OOAB' 


L2I 

H,S40P0L 

;GET SERIAL 4 OUT POLL ROUTINE 

00C8 r 

CD 0000:05 


CALL 

UNLINK# ; 

UNLINK POLL ROUTINE 

OOCB' 

21 002C" 


LAI 

H,S40SPH 

;GET SERIAL 4 OUT SEMAPHORE 

OOCE T 

C3 0000:06 


JMP 

SIGNAL# ; 

SIGNAL PROCESS AS READY 

OOD1 * 


S50POLr 

1 

SERIAL 5 OUTPUT POLL ROUTINE 

00D1 * 

0000 


•WORD 

o ; 

SUCCESSOR LINK POINTER 

OOD3 r 

0000 


•WORD 

o ; 

PREDECESSOR LINK POINTER 

OOD5 * 

DfiFD 

f 

IN 

S5LSR ; 

GET SERIAL 5 LINE STATUS REGISTER 

00D7 ' 

CB6F 


BIT 

TBE,A ; 

TRANSMIT BUFFER EMPTY? 

00D9* 

C8 


RZ 


IF NOT, DOME 

OODA* 

21 0003" 


LAI 

H,S5BR ; 

ELSE, GET SERIAL 5 BAUD RATE 

OODD' 

CB76 . 


BIT 

6,M | 

CLEAR TO SEND HANDSHAKING REQUESTED 

OGDF* 

2805 

i 

JRZ 

..NCTS ; 

IF NOT, CONTINUE 

00El * 

DBFE 


IN 

S5MSR ; 

GET SERIAL 5 MODEM STATUS REGISTER 

OOE3* 

CB67 


BIT 

CTS, A , 

CLEAR TO SEND STATUS TRUE? 

00 E5' 

CS 


RZ 


IF NOT, DONE 

00 E6» 

3A 0007" 

• 

•NCTS: LDA 

S50CHR 

GET SERIAL 5 OUTPUT CHARACTER 

00 E9 » 

D3F8 


OUT 

S5DATA 

OUTPUT CHARACTER 

OOEB* 

21 00D1' 


LAI 

H,S50P0L 

;GET SERIAL 5 OUT POLL ROUTINE 

OOEE 1 

CD 0000:05 


CALL 

UNLINK# 

UNLINK POLL ROUTINE 

00F1 * 

21 0032" 


LAI 

H,S50SPH 

;GET SERIAL 5 OUT SEMAPHORE 

Q0F4* 

C3 0000:06 


JMP 

SIGNAL# 

SIGNAL PROCESS AS READY 

OOF7 * 

CD 0104' 

ISR480::CALL 

..S2I ; 

CHECK FOR SERIAL 2 INPUT 

OOFA* 

CD 0116* 


CALL 

..S3I I 

CHECK FOR SERIAL 3 INPUT 

OOFD* 

CD 0128* 


CALL 

•.S4I ; 

CHECK FOR SERIAL 4 INPUT 

0100' 

CD 013A» 


CALL 

..S5I ; 

CHECK FOR SERIAL 5 INPUT 

0103' 

C9 


RET 


DONE 

0104' 

DBE5 

i 

e 

•S2I: IN 

S2LSR ] 

GET SERIAL 2 STATUS 

0106' 

CB47 


BIT 

RDA,A ; 

CHARACTER AVAILABLE 

0108* 

C8 


RZ 


IF NOT, DONE 

0109' 

21 0008" 


LAI 

H,S2ISPH 

•GET SERIAL 2 INPUT SEMAPHORE 

010C» 

E5 


PUSH 

H ; 

SAVE SERIAL 2 INPUT SEMPAHORE 

010D' 

CD 0000:06 


CALL 

SIGNAL# : 

SIGNAL PROCESS AS READY 

0110' 

DBEO 


IN 

S2DATA ; 

GET SERIAL 2 DATA CHARACTER 

0112* 

0602 


MVI 

B, 2 

SET CHANNEL NUMBER=2 

0114' 

1834 


JMPR 

..SIC 

CONTINUE 

0116' 

DBED 

e 

.531: IN 

S3LSR 

GET SERIAL 3 STATUS 

0118' 

CB47 


BIT 

RDA, A 

CHARACTER AVAILABLE 

011 A* 

C8 


RZ 


IF NOT, DONE 

01 IB' 

21 OOOE" 


LAI 

H,S3ISPH 

;GET SERIAL 3 INPUT SEMAPHORE 

011 E» 

E5 


PUSH 

H 

SAVE SERIAL 3 INPUT SEMPAHORE 

01 IF' 

CD 0000:06 


CALL 

SIGNAL# 

SIGNAL PROCESS AS READY 

0122' 

DBE8 


IN 

S3DATA 

GET SERIAL 3 DATA CHARACTER 

0124* 

0603 


MVI 

B,3 

SET CHANNEL NUMBERs3 

0126 » 

1822 


JMPR 

..SIC 

CONTINUE 

0128' 

DBF5 

e 

•S4I: IN 

S4LSR 

GET SERIAL 4 STATUS 

012A' 

CB47 


BIT 

RDA,A 

CHARACTER AVAILABLE 
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012C' 

C8 

RZ 


;IF NOT,. DONE 

012D' 

21 0014* 

LIT 

H,S4ISPH 

;GET SERIAL 4 INPUT SEMAPHORE 

0130 r 

E5 

PUSH 

H 

;SAVE SERIAL 4 INPUT SEMPAHORE 

0131 * 

CD- 0000:06 

CALL 

SIGNAL# 

;SIGNAL PROCESS AS READY 

0134' 

DBFO 

IN 

S4DATA 

;GET SERIAL 4 DATA CHARACTER 

0136* 

0604 

MVI 

B,4 

;SET CHANNEL NUMBERs4 

0138' 

1810 

JMPR: 

. .SIC 

;CONTINUE 

013A' 

DBFD 

..S5I: IN 

S5LSR 

;GET SERIAL 5 STATUS 

013C' 

CB47 

air 

RDA,A 

;CHARACTER AVAILABLE 

013E» 

ca 

RZ 


;IF NOT, DONE 

013F» 

21 001A* 

lzx 

H, S5ISPH 

;GET SERIAL 5 INPUT SEMAPHORE 

0142* 

E5 

PUSH 

H 

;SAVE SERIAL 5 INPUT SEMPAHORE 

0143' 

CD 0000:06 

CALL 

SIGNAL# 

;SIGNAL PROCESS AS READT 

0146' 

DBF8 

IN 

S5DATA 

;GET SERIAL 5 DATA CHARACTER 

0148' 

0605 

Mvr 

B,5 

;SET CHANNEL NUMBERsS 

014A' 

4F 

..SIC: MOV 

C, A 

;SERIAL DATA CHARACTER TO C-REG 

014B» 

78 

MOV 

A,B 

;GET CHANNEL NUMBER 

014C» 

21 0000” 

LZX 

H,S2BR 

;GET SERIAL 2 BAUD RATE 

014F r 

CD 01BT' 

CALL 

CHNMBC 

;DO COMMON SETUP 

0152* 

D1 

POP 

D 

;RESTORE SERIAL INPUT SEMAPHORE 

0153’ 

C3 0000:or 

JMP 

• 

SERISC# 

;CONTINUE 

0156' 

21 0000* 

SBR480:;LXI 

H,S2BR 

;GET SERIAL 2 BAUD RATE 

0159’ 

CD 01B7’ 

CALL 

CHNMBC 

;DO COMMON SETUP 

015C' 

F5 

PUSH 

PSW 

;SAVE CHANNEL NUMBER 

015D' 

71 

MOV 

M,C 

;SAVE BAUD RATE CODE 

015E' 

CD 0000:08 

CALL 

GETSTV# 

;GET BAUD RATE TIMER VALUE 

0161' 

FI 

POP 

PSW 

;RESTORE CHANNEL NUMBER 

0162’ 

87 

ADD 

A 

;X2 

0163’ 

87 

ADD 

A 

; X2=X4 

0164* 

87 

ADD 

A 

;Z2sX8 

0165’ 

F6E3 

ORI 

IOBASE+3 

;CALC LINE CONTROL REGISTER 

0167’ 

4F 

MOV 

C, A 

:LINE CONTROL REGISTER TO C-REG 

0168’ 

3E83 

MVI 

A,LCRCW!80H :GET DIVISOR LATCH ACCESS BIT 

016A» 

ED79 

OUTP 

A 

;SELECT DIVISOR LATCH 

016C' 

OD 

DCR 

C 

;CALC DATA REGISTER 

016D ’ 

OD 

DCR 

C 


016E’ ’ 

OD 

DCR 

C 


016F* 

ED59 

OUTP 

E 

;OUTPUT LSB OF BAUD RATE TIMER VALUI 

0171 ’ 

OC 

INR 

C 

; CALC DATA REGISTER*1 

0172’ 

ED51 

OUTP 

D 

;OUTPUT MSB OF BAUD RATE TIMER VALUI 

0174’ 

OC 

INR 

C 

;CALC LINE CONTROL REGISTER 

0175’ 

OC 

INR 

C 


0176’ 

3E03 

MVI 

A,LCRCW 

;GET LINE CONTROL REGISTER VALUE 

0178’ 

ED79 

OUTP 

A 

;DE-SELECT DIVISOR LATCH 

017A’ 

C9 

RET 


;DONE 

017B’ 

21 0000" 

RBR480::LXI 

H,S2BR 

;GET SERIAL 2 BAUD RATE 

017E' 

CD 01B7 1 

CALL 

CHNMBC 

;DO COMMON SETUP 

0181 ’ 

7E 

MOV 

A,M 

;GET CURRENT BAUD RATE 

0182’ 

C9 

RET 


;DONE 
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0183* 

79 

SMC480::MOV 

AyC 

;GET REQUESTED MODEM CONTROLS 

0184* 

OF 

RRC 


;SHIFT MODEM CONTROLS INTO BITS 6/7 

0185*" 

OF 

RRC 



0186* 

57 

MOV 

EC 

MOV 

DyA. 

;MODEM CONTROL REGISTER VALUE TO D-f 

0187 r 

78 

A,B 

;GET CHANNEL NUMBER 

0l88 r 

D602 

SUI 

2 

;REMOVE CHANNEL NUMBER BIAS 

018A> 

87 

ADO 

A 

,12 

0l8B r 

87 

ADO 

A 

; 12 si 4 

018C* 

87 

ADO 

A 

}I2al8 

018D* 

F6E4 

ORI 

IOBASE+4 :CALC MODEM CONTROL REGISTER 

018F* 

4F 

MOV 

Cy A 

; MODEM CONTROL REGISTER; TO C-REG 

0190* 

ED 51 

OUTP 

0 

;OUTPUT MODEM CONTROLS 

0192* 

C9 

RET 

• 


{DONE 

0193* 

78 

. SMC480 M MOV 

A,B 

;GET CHANNEL NUMBER 

0194* 

0602 

SUI 

2 

;REMOVE CHANNEL NUMBER BIAS 

0196* 

87 

ADD 

A 

;I2 

0197 r 

87 

ADO 

A 

;I2=I4 

0198* 

87 

ADO 

A 

;I2sl8 

0199* 

F6E6 

ORI 

IOBASE+6 

;CALC MODEM STATUS REGISTER 

019B' 

4F 

MOV 

Cy A 

;MODEM STATUS REGISTER TO C-REG 

019C* 

ED50 

INP 

0 

,*GET MODEM STATUS REGISTER 

019E* 

AF 

IRA 

A 

;SET RETURN CODEsO 

019F* 

CB62 

BIT 

4 y D 

;CLEAR TO SEND BIT SET? 

01A1 » 

2802 

JRZ 

..NCTS 

;IF NOT, CONTINUE 

01 A3* 

CBFF 

SET 

7,A 

] ELSE, SET CLEAR TO SEND BIT 

01A5 * 

CB6A 

..NCTS: BIT 

5,D 

;DATA SET READ! BIT SET? 

01A7’ 

2802 

JRZ 

..NDSR 

;IF NOT, CONTINUE 

01A9* 

C8F7 

SET 

6, A 

;ELSE, SET DATA SET READ? BIT 

01AB* 

CB7A 

..NDSR: BIT 

7,0 

;DATA CARRIER DETECT BIT SET? 

01 AD* 

2802 

JRZ 

..NDCD 

;IF NOT, CONTINUE 

01AF* 

CBEF 

SET 

5,A 

;ELSE, SET DATA-CARRIER DETECT BIT 

01B1 * 

CB72 

..NDCD: BIT 

6,0 

;RING INDICATOR BIT SET? 

01B3* 

C8 

RZ 


;IF NOT, DONE 

01B4 * 

CB ET 

SET 

4,A 

;ELSE, SET RING INDICATOR BIT 

01B6* 

C9 

RET 


;DONE 

01BT ’ 

0602 

CHNMBC: SUI 

2 

;REMOVE CHANNEL NUMBER BIAS 

01B9* 

5F 

MOV 

EyA 

;CHANNEL NUMBER TO DE-REG 

01BA* 

1600 

MV I 

0,0 

;DOUBLE LENGTH 

01BC* 

19 

DAO 

D 

{INDEX INTO CHARACTER SAVE AREA 

01BD* 

C9 

RET 


;DONE 


Iend 
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t COPYRIGHT (C) 1980 BT SOFTWARE 2000,. INC* 

► 

[. AUTHORS: RONALD' E* RAISES 

r MICHAEL 0* BUSCH 

► 

; VERSIONS 09/08/81 

►IDENT BRT442 ;MODULE ID 


..INSERT DREQUATE ;DRIVER SYMBOLIC EQUIVALENCES 


0600 


BR50 

= 1536 


50 BAUD TIMER VALUE 

0400 


BR75 

* 1024 


75 BAUD TIMER VALUE 

02BA 


BR110 

sr 698 


110 BAUD TIMER VALUE 

023B 

- 

BR1345 

» 571 


134.5 BAUD TIMER VALUE 

0200 


BR150 

- 512 


150 BAUD TIMER VALUE 

0100 


BR300 

a 256 


300 BAUD TIMER VALUE 

0080 


BR600 

* 128 


600 BAUD TIMER VALUE 

0040 


BR1200 

a 64 


1200 BAUD TIMER VALUE 

002B 


BR1800 

= 43 


1800 BAUD TIMER VALUE 

0026 


BR2000 

a 38 


2000 BAUD TIMER VALUE 

0020 


BR2400 

» 32 


2400 BAUD TIMER VALUE 

0015 


BR3600 

= 21 


3600 BAUD TIMER VALUE 

0010 


BR4800 

a 16 


4800 BAUD TIMER VALUE 

OOOB 


BR7200 

a 11 


7200 BAUD TIMER VALUE 

0008 


BR9600 

a 8 


9600 BAUD TIMER VALUE 

0004 


BR192E 

a 4 


19200 BAUD TIMER VALUE 

5000 


RTCCNT 

s: 20480 ; 

RTC COUNT (1/60 SECOND TICK) 

003C 


TICSEC 

s: 60 


RTC TICKS PER SECOND 

0000« 


» 

•LOC 

•PROG.# ; 

; LOCATE IN PROGRAM AREA 

0000« 

0600 

BRTBL:: 

.WORD 

BR50 

50 BAUD TIMER VALUE 

0002* 

0400 


.WORD 

BR75 

75 BAUD TIMER VALUE 

0004 ‘ 

02BA 


.WORD 

BR110 

110 BAUD TIMER VALUE 

0006' 

023B 


.WORD 

BR1345 

134.5 BAUD TIMER VALUE 

0008' 

0200 


.WORD 

BR150 

150 BAUD TIMER VALUE 

OOOA» 

0100 


.WORD 

BR300 

300 BAUD TIMER VALUE 

000C* 

0080 


.WORD 

BR600 

600 BAUD TIMER VALUE 

OOOE* 

0040 


.WORD 

BR1200 

1200 BAUD TIMER VALUE 

0010' 

002B 


.WORD 

BR1800 

1800 BAUD TIMER VALUE 

0012' 

0026 


.WORD 

BR2000 

2000 BAUD TIMER VALUE 

0014' 

0020 


.WORD 

BR2400 

2400 BAUD TIMER VALUE 

0016' 

0015 


.WORD 

BR3600 

3600 BAUD TIMER VALUE 

0018' 

0010 


.WORD 

BR4800 

4800 BAUD TIMER VALUE 

001 A’ 

OOOB 


.WORD 

BR7200 

7200 BAUD TIMER VALUE 

001C* 

0008 


.WORD 

BR9600 

9600 BAUD TIMER VALUE 

001 E T 

0004 


.WORD 

BR192K 

19200 BAUD TIMER VALUE 


.END 
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• r COPYRIGHT (C) 1981 

• AUTHORS: RONALD E. 
; MICHAEL D 

j VERSIONS 09/10/81 

llDENT DSK401 


.INSERT DREQUATE 


0082 

• 

CHIDMA 

St 

82H 

0083 

CH1TC 

2 

83H 

0088 

DMACTL 

2. 

88H 

008A 

DSKSEL 

2 

8 AH 

008C 

DSKCTL 

2 

8CH 

008E 

FDCST 

• 

8 EH 

008F 

FDCDAT 

# 

- 

8FH 

0042 

CHI ENA 


42H 

0000 

DMAVFY 

55 

00H 

0040 

DMARD 


40H 

0080 

DMAWR 

2 

80H 

0003 

FDCSFY 

• 

03H 

0004 

FDCSDS 

2 

04H 

0007 

FDCRCL 

mm 

07 H 

0008 

FDCSIS 

2 

08H 

OOOA 

FDCRID 

2 

OAH 

OOOD 

FDCFMT 

2 

ODH 

OOOF 

FDCSK 

2 

OFH 

0005 

FDCWR 

2 

05H 

0006 

FDCRD 

2 

06H 

0000 

DSKENI 

s 

0 

0007 

DSKDLC 

2 

7 

0006 

FDCMFM 

s 

6 

0007 

FDCMT 

2 

7 

0004 

FDCBSY 

s 

4 

0005 

FDCSE 

2 

5 

0006 

FDCOUT 

mm 

6 

0007 

FDCRDY 

= 

7 

00D0 

SRT8R 

- 

(16-3X4 

00A0 

SRT8S 

2 

(16-8X4 

0024 

HDLT 

s 

18*2 

0001 

HDUT 

S 

1 

0003 

STONR 

s 

3 

0004 

STOEC 

2 

4 


SOFTWARE 2000, INC. 

RAISES 

BUSCH 


; MODULE ID 

;DRIVES SYMBOLIC EQUIVALENCES 

; CHANNEL 1 DMA REGISTER (FDC) 

;CHANNEL 1 TERMINAL COUNT (FDC) 

;DMA COMMAND AND STATUS REGISTERS 
;DISK SELECT PORT 
;STATUS AND INT MASS (BOARD) 

;DISK CONTROLLER STATUS (uPD-765) 
;DISK CONTROLLER DATA (uPD-765) 

;DMA CHANNEL 1 ENABLE COMMAND 
;DMA VEHIFY COMMAND 
;DMA READ COMMAND 
;DMA WRITE COMMAND 

•FDC SPECIFY COMMAND 

;FDC SENSE DRIVE STATUS COMMAND 

;FDC RECALIBRATE COMMAND 

;FDC SENSE INTERRUPT STATUS COMMAND 

;FDC READ ID COMMAND 

;FDC FORMAT TRACK COMMAND 

iFDC SEEK COMMAND 

;FDC WRITE COMMAND 

;FDC READ COMMAND 

;DISK CONTROLLER ENABLE INTERRUPTS 
•DISK CONTROLLER DELAY COMPLETE 

;FDC DOUBLE-DENSITY BIT 
;FDC MULTI-TRACK BIT 

•FDC BUSY STATUS 
•FDC SEEK END 
} FDC OUTPUT MODE 
;FDC READY FOR DATA 

; 8 INCH FDD STEP RATE (3 MS-REMEX) 
;8 INCH FDD STEP RATE (6 MS-SHUG) 

;FDD HEAD LOAD TIME (36 MS) 

;FDD HEAD UNLOAD TIME (16 MS) 

•STATUS REGISTER 0 NOT READY 
:STATUS REGISTER 0 EQUIP CHECK 
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0005 


STOSE 

= 5 


;STATUS REGISTER 0 SEEK END 

0000 


ST1MA 

= 0 


;STATUS REGISTER 1 MISSING ADDR MK 

0001 


ST1NW 

= 1 


^STATUS REGISTER 1 NOT WRITABLE 

0002 


ST1ND 

= 2 


,* STATUS REGISTER 1 NO DATA 

0004 


ST10R 

= 4 


;STATUS REGISTER 1 OVER RUN 

0005 


ST1DE 

= 5 


-STATUS REGISTER 1 DATA ERROR 

0003 


ST3TS 

s 3 


•STATUS REGISTER 3 TWO-SIDED 

0004 


ST3T0 

* 4 


;STATUS REGISTER 3 TRACK 0 

0005 


ST3RDY 

s 5 


;STATUS REGISTER 3 READY 

0006 


ST3WP 

= 6 


;STATUS REGISTER 3 WRITE PROTECTED 

OOOA 


MAXTRY 

- 10 


;MAX DISK TRY COUNT 

0000 


SLOWSR 

• 

a 0 


;SLOW STEP RATE (FLAGS) 

0002 


TSD 

= 2 


;TWO-SIDED DISK BIT (TYPE CODE) 

0003 


DDD 

= 3 


;DOUBLE DENSITY DISK BIT (TYPE CODE 

0004 


MINI 

• 

r 4 


;MINI-FLOPPY DISK BIT (TYPE CODE) 

0000 i 


9 

.LOC 

•PROG.# 

;LOCATE IN PROGRAM AREA 

oooo» 

21 0000" 

DSKDRS: 

:LXI 

H,DMXSPH 

,‘GET MUTUAL EXCLUSION SEMAPHORE 

0003’ 

CD 0000:04 


CALL 

WAIT# 

;DISPATCH IF NECESSARY 

0006' 

CD 0012' 


CALL 

..DD 

;CALL DISK DRIVER 

0009* 

F5 


PUSH 

PSW 

{SAVE RETURN CODE 

000A» 

21 0000" 


LXX 

H,DMXSPH 

;GET MUTUAL EXCLUSION SEMAPHORE 

OOOD* 

CD 0000:05 


CALL 

SIGNAL# 

;SIGNAL PROCESS AS READY 

0010* 

FI 


POP 

PSW 

;RESTORE RETURN CODE 

0011 ' 

C9 


RET 


;DONE 

0012' 

ED73 0012" 

l.DD: 

SSPD 

RETSP 

:SAVE ERROR RETURN STACK POINTER 

0016* 

DD7E00 


MOV 

A,PDRFCN(X) :GET PD REQ FUNCTION NUMBER 

0019' 

B7 


ORA 

A 

;PD REQ FUNCTION NUMBERsO? 

001 A» 

283D 


JRZ 

RDDSK 

;IF SO, CONTINUE 

001C* 

3D 


DCR 

A 

;PD REQ FUNCTION NUMBERS1? 

001D* 

284C 


JRZ 

WRDSK 

;IF SO, CONTINUE 

001F* 

3D 


DCR 

A 

;PD REQ FUNCTION NUMBERs2? 

0020* 

CA 028A» 


JZ 

RETDST 

;IF SO, CONTINUE 

0023' 

3D 


DCR 

A 

;PD REQ FUNCTION NUMBERs3? 

0024* 

CA 0303' 


JZ 

RETRDY 

;IF SO, CONTINUE 

0027’ 

3D 


DCR 

A 

;PD REQ FUNCTION NUMBERs4? 

0028' 

285C 


JRZ 

FMTDSK 

jIF SO, CONTINUE 

002A' 

C9 

• 

RET 


;ELSE, DONE 

002B» 

002E 

1 

.WORD 

NITLEN+2 

;INITIALIZATION CODE LENGTH 

002D' 

DB8E 

DSKIN5: 

: IN 

FDCST 

iGET FDC STATUS 

002F» 

3C 


INR 

A 

;CONTROLLER PRESENT? 

0030' 

2821 


JRZ 

..X 

;IF NOT, CONTINUE 

0032' 

3EC3 


MVI 

A,JMP 

;ELSE, INITIALIZE INTERRUPT VECTOR 

0034' 

32 0028 


STA 

5*8 

;(VECTORED INTERRUPT-5) 
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0037 r 

21 0387' 



LZI 

H r DSEISR 

003A r 

22 0029 



SHLD 

(5»8)*1 

003D r 

AF 



XRA 

A 

003E* 

D388 



OUT 

DMACTL ;DISABLE DMA CONTROLLER 

0040* 

3E03 



Mvr 

A,FDCSFY ;GET FDC SPECIFY COMMAND 

0042* 

CD 0412* 



CALL 

CMDRDY ;OUTPUT COMMAND TO FDC 

0045* 

3ED1 



MV I 

A f SRT8RIHDUT ;GET REMEZ STEP RT/HEAD UNLD 

0047* 

CD 04t8* 



CALL 

DATOUT ;OUTPUT IT TO FDC 

004A* 

3E24 



MVI 

A y HDLT ;GET HEAD LOAD TIME/NON-DMA BIT 

004C* 

CD 04-18* 



CALL 

DATOUT ;OUTPUT IT TO FDC 

004F* 

3E01 



MVI 

A,1<DSEENI 

0051* 

D38C 



OUT 

DSKCTL ;ENABLE CONTROLLER INTERRUPTS 

0053* 

21 0Q2D* 

«► 

•X: 

LZI 

H,DSEINl ;G£T INITIALIZATION CODE ADDRESS 

0056' 

C3 0000:06 



JMF 

DEALOC# ;DE-ALLOCATE INITIALIZATION CODE 

0Q2C 

- 

NITLEN 

* 

= .-DSEIN* ;INITIALIZATION CODE LENGTH 

0059* 

3EOA 

RDDSE: 

MVI 

A,MAZTHY ;GET MAX TRY COUNT 

005B* 

32 000C** 



STA 

TRYCNT ;SET TRY COUNT 

005E* 

3E06 

• 

•HD: 

MVI 

AyFDCRD ;GET FDC READ COMMAND 

0060* 

0E40 



MVI 

C y DMARD ;GET DMA READ COMMAND 

0062* 

CD 00F2* 



CALL 

DSECOM ;CALL COMMON CODE 

0065* 

C8 



RZ 

;N0 ERRORS, RET AsO 

0066* 

CD 0149* 



CALL 

RETRY ;ERRORS, RECALIBRATE 

0069* 

18F3 



JMPR 

..RD ;TRY AGAIN 

006B* 

3E0A 

WRDSE: 

MVI 

A,MAZTRY ;GET MAZ TRY COUNT 

006D* 

32 OOOC** 



STA 

TRYCNT ;S£T THY COUNT 

0070* 

3E05 

• 

.WR: 

MVI 

A,FDCWR ;G£T FDC WRITE COMMAND 

0072* 

0E80 



MVI 

C,DMAWR ;GET DMA WRITE COMMAND 

0074* 

CD 00F2* 



CALL 

DSECOM ;CALL COMMON CODE 

0077* 

2008 



JRNZ 

..RT ;IF ERRORS, RETRY 

0079* 

3E06 



MVI 

A,FDCRD ;ELSE, GET FDC READ COMMAND 

007 B» 

OEOO 



MVI 

C,DMAVFY ;GET DMA VERIFY COMMAND 

007 D» 

CD 00F2* 



CALL 

DSECOM ;CALL COMMON CODE 

0080* 

C8 



RZ 

;NO ERRORS, RET AsO 

0081 » 

CD 0149* 

• 

.RT: 

CALL 

RETRY ;ERRORS, RECALIBRATE 

0084* 

18EA 



JMPR 

..WR ;TRY AGAIN 

0086* 

DD7E02 

FMTDSE: 

MOV 

A,PDRTRE(Z) ;G£T PD REQ TRACS NUMBER 

0089* 

87 



ORA 

A ;PD REQUEST TRACE NUMBERsO? 

008A* 

2006 



JRNZ 

..NTRO ;IF NOT, CONTINUE 

008C* 

CD 0350* 



CALL 

SELCUR ;ELSE, SELECT I/O DISE 

008F* 

CD 024F’ 



CALL 

RECAL ;RECALIBRATE DRIVE 

0092’ 

3E0A 

• 

•NTRO: 

MVI 

A,MAZTRY ;GET MAZ TRY COUNT 

0094* 

32 OOOC** 



STA 

TRYCNT ;SET TRY COUNT 

0097* 

CD 01D4’ 

• 

• FMT: 

CALL 

SEES ;SELECT DISE AND SEES 

009A* 

3E80 



MVI 

A,DMAWR ;GET DMA WRITE COMMAND 

009C’ 

32 0011" 



STA 

IODMAC ;SET DMA COMMAND 

009F* 

DD6E08 



MOV 

L,PDRTC(X) ;GET PD REQ TRANSFER COUNT 
H,PDRTC+1(X) 

00A2 * 

DD6609 



MOV 

00A5 » 

DD5E0A 



MOV 

E,PDRDMA(Z) ;GET PD REQUEST DMA ADDRESS 

00A8* 

DD560B 



MOV 

D,PDRDMA+1(X) 

OOAB * 

CD 016B* 



CALL 

OMANIT ;INITIALIZE DMA CONTROLLER 
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OOAE’ 

3E0D 


mvi 

A,FDCFMT {GET FORMAT TRACK COMMAND 

QOBO’ 

DDCB04TE 


BIT 

T,PDRSECCX) :DOUBLE DENSITY FLAG SET? 

00B4’ 

2802 


JRZ 

..SD 

{IF NOT, CONTINUE 

00B6’ 

CBF7 


SET 

FDCMFM, A .-ELSE. SET DOUBLE DENSITY BIT 

OOB8 f 

CD 0412 r 

*.SD: 

CALL 

CMDRDY 

{SEND FORMAT COMMAND TQ FDC 

OOBB» 

DD7E01 


MOV 

A,PDRDRV(X) ;GET PD REQUEST DRIVE NUMBER 

OOBE r 

DDCB05TE 


BIT 

7,PDRSEC+UX) {HEAD NUMBER ONE FLAG SET? 

00C2» 

2802 


JRZ 

..HDO 

{IF NOT, CONTINUE 

00C4* 

CBD7 


SET 

2,A 

{ELSE, SET HEAD ONE BIT 

00C6 * 

CD 0418’ 

..HDO: 

CALL 

DATOUT 

{OUTPUT UNIT NUMBER TO FDC 

00C9 ’ 

DD7E04 


MOV 

A,PDRSEC(X) {GET PD REQUEST SECTOR CLSB) 

OOCC» 

E603 


ANI 

3 

{EXTRACT FORMAT SECTOR SIZE 

OOCE* 

CD 0418’ 


CALL 

DATOUT 

{OUTPUT FORMAT SECTOR SIZE TO FDC 

00D1» 

DOT EOS 


MOV 

A, PDRSC(X) {GET PD REQUEST SECTOR COUNT 

00D4’ 

CD 0418’ 


HALL 

DATOUT 

•OUTPUT SECTORS/TRACK TO FDC 

OODT* 

DDT EOS' 


MOV 

A,PDRSEC+1 (X) {GET PD REQUEST SECTOR (MSB) 

OODA’ 

E67F 


ANI 

7FH 

{EXTRACT FORMAT GAP LENGTH 

OODC' 

CD 0418’ 


CALL 

DATOUT 

{OUTPUT FORMAT GAP LENGTH TO FDC 

OODF* 

3EE5 


MVI 

A,0E5H 

{GET FORMAT FILLER BYTE 

00 El’ 

CD 0418’ 


CALL 

DATOUT 

{OUTPUT FORMAT FILLER BYTE TO FDC 

00E4 * 

CD 0380’ 


CALL 

WTINT 

{WAIT FOR INTERRUPT 

OOET' 

3A 0021* 


LDA 

STO 

{GET STATUS REGISTER 0 

OOEA’ 

E6C0 


ANI 

OCOH 

{ANY ERRORS? 

00EC r 

ca 


RZ 


{NO ERRORS, RET AsO 

00 ED’ 

CD 0149’ 


CALL 

RETRY 

{ERRORS, RECALIBRATE 

OOFO* 

18A5 

• 

JMPR 

« .FMT 

{TRY AGAIN 

00F2’ 

32 0010" 

DSKCOM: 

STA 

IORVC 

{SET FDC READ/WRITE COMMAND 

00F5' 

79 


MOV 

A, C 

{GET DMA COMMAND 

OOF6 * 

32 0011" 


STA 

IODMAC 

{SET DMA COMMAND 

00F9* 

DD7E04 


MOV 

A, PDRSEC(X) :GET PD REQ SECTOR NUMBER 

OOFC* 

32 0015" 


STA 

CURSEC 

{SET CURRENT SECTOR 

OOFF’ 

DD6E0A 


MOV 

L,PDRDMA(X) ;GET PD REQUEST DMA ADDRESS 

0102’ 

DD660B 


MOV 

H,PDRDMA+1(X) 

0105 * 

22 0016" 


SHLD 

CURADR 

{SET CURRENT DMA ADDRESS 

0108' 

DD7E06 


MOV 

A,PDRSC(X) {GET PD REQ SECTOR COUNT 

01 OB’ 

32 0018" 


STA 

CURSC 

{SET CURRENT SECTOR COUNT 

010E’ 

CD 01D4’ 


CALL 

SEEK 

{SELECT DISK AND SEEK 

0111 ’ 

AF 


XRA 

A 


0112’ 

32 0019" 


STA 

IOERR 

{CLEAR I/O ERROR STATUS 

0115’ 

CD 0183' 

a•RWL• 

CALL 

SETID 

{SET UP SECTOR ID INFO 

0118’ 

CD 0159’ 


CALL 

SETUP 

{SETUP READ/WRITE DMA 

011B’ 

CD 03E1« 


CALL 

CMDOUT 

{SEND SECTOR ID INFO TO FDC 

01 IE’ 

CD 0380’ 


CALL 

WTINT 

{WAIT FOR INTERRUPT 

0121 ’ 

21 0019" 


LXI 

H,IOERR 

{GET I/O ERROR STATUS 

0124’ 

3A 0021" 


LDA 

STO 

{GET STATUS REGISTER 0 

0127’ 

B6 


ORA 

M 

{ADD NEW STATUS 

0128' 

77 


MOV 

M, A 

{UPDATE I/O ERROR STATUS 

0129* 

CD 0453' 


CALL 

GETXLT 

{GET TRANSLATION TABLE ADDRESS 

012C’ 

2815 


JRZ 

..NI 

{IF TRANSLATION NOT REQUIRED, CONf 

012E’ 

21 0015" 


LXI 

H,CURSEC 

{ELSE, GET CURRENT SECTOR NUMBER 

0131' 

34 


INR 

M 

{INCREMENT CURRENT SECTOR 

0132* 

CD 0448' 


CALL 

CALCSS 

;CALC SECTOR SIZE 

0135' 

EB 


XCHG 


{SECTOR SIZE TO DE-REG 
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0136* 

2A 0016" 


LHLD 

CURADR 

;GET CURRENT DMA ADDRESS 

0139* 

19 


DAD 

D 

;CALC NEXT DMA ADDRESS 

013A* 

22 0016* 


SHLD 

CURADR 

;UPDATE CURRENT DMA ADDRESS 

013D* 

21 0018" 


LII 

H,CURSC 

{GET CURRENT SECTOR COUNT 

0140* 

35 


OCR 

M 

;DECREMENT CURRENT SECTOR COUNT 

0141 * 

20D2 


JRMZ 

• •RWL 

{IF TRANSFER NOT COMPLETE,. CONTINUE 

0143* 

3A 0019" 

..MI: 

LDA 

10 ERR 

;GET I/O ERROR STATUS 

0146 * 

E6C0 


AMI 

OCQH 

fEXTRACT COMPLETION STATUS 

0148* 

C9 


RET 


{DONE 

0149* 

0E07 

RETRY: 

MVI 

C, ABEL 

•GET BELL CHARACTER 

Q14B r 

CD 0000:07 


CALL 

CONOUT# 

;OUTPUT TO CONSOLE 

014E* 

CD 024F* 


CALL 

RECAL 

:RECALIBRATE DRIVE 

0151 * 

21 OOOC" 


LII 

H,TRYCMT ;GET RETRY COUNT 

0154* 

35 


OCR 

M 

jDECREMENT RETRY COUNT 

0155* 

CO 


RMZ 


{IF COUNT NOT EXHAUSTED, TRY AGAIN- 

0156* 

C3 0470* 


JMP 

FATAL 

;CONTINUE 

0159* 

CD 0453* 

SETUP: 

CALL 

GETXLT 

{GET TRANSLATION TABLE ADDRESS 

015C* 

DD6E08 


MOV 

L,PDRTC(X) ;GET PD REQ TRANSFER COUNT 

015F* 

DD6609 


MOV 

H,PDRTC+1(X) 

0162* 

2803 


JRZ 

..MI 

;IF NO TRANSLATION RQRD, CONTINUE 

0164* 

CD 0448* 


CALL 

CAL CSS 

;ELSE, CALC SECTOR SIZE 

0l67 f 

ED5B 0016" 

..MI: 

LDED 

CURADR 

{GET CURRENT DMA ADDRESS 

016B* 

AF 

DMAMIT: 

XRA 

A 


016C’ 

D388 


OUT 

DMACTL 

;RESET DMA CONTROLLER 

016E* 

2B 


DCX 

H 

;TERMINAL COUNT-1 FOR 8257 

016F* 

7D 


MOV 

A,L 

;GET LSB OF TERMINAL COUNT 

0170* 

D383 


OUT 

CH1TC 

{SEND LSB OF TERMINAL COUNT - 

0172* 

3A 0011" 


LDA 

IODMAC 

;GET I/O DMA COMMAND 

0175* 

B4 


ORA 

H 

;ADD TO MSB OF TERMINAL COUNT 

0176* 

D383 


OUT 

CHI TC 

;SEND MSB OF TERMINAL COUNT 

0178* 

7B 


MOV 

A, E 

;GET LSB 

0179* 

D382 


OUT 

CHI DMA 

;OUTPUT IT TO DMA CONTROLLER 

Q17B* 

7A 


MOV 

A,D 

;G£T MSB 

017C* 

D382 


OUT 

CHI DMA 

:OUTPUT IT TO DMA CONTROLLER 

017E* 

3E42 


MVI 

A,CHI ENA {GET CHANNEL 1 ENABLE COMMAND 

0180* 

0388 


OUT 

DMACTL 

;ENABLE DMA CONTROLLER 

0182* 

C9 


RET 


;DONE 

0183* 

DD7E02 

SETID: 

MOV 

A,PDRTRKCX) {GET PD REQ TRACK NUMBER 

0186* 

32 001 A" 


STA 

CYL 

;SET CYLINDER 

0189* 

3A 0015" 


LDA 

CURSEC 

;GET CURRENT SECTOR 

018C* 

4F 


MOV 

C, A 

{SECTOR NUMBER TO C-REG 

018D* 

CD 0453* 


CALL 

GETXLT 

;GET TRANSLATION TABLE ADDRESS 

0190* 

2804 


JRZ 

..NI 

;IF TRANSLATION NOT REQUIRED, CONT 

0192* 

0600 


MVI 

B, 0 

{ELSE, MAKE SECTOR DOUBLE LENGTH 

0194* 

09 


DAD 

B 

{INDEX INTO TRANSLATION TABLE 

0195* 

4E 


MOV 

C,M 

{GET TRANSLATED SECTOR NUMBER 

0196' 

OC 

..MI: 

INR 

C 

{CONVERT SECTOR TO BASE 1 

0197* 

DD4613 


MOV 

B,SECTRK(X) {GET NUMBER OF SECTORS/TRACK 

019A* 

CD 0461* 


CALL 

GETTCA 

{GET DISK TYPE CODE ADDRESS 

019D* 

CB56 


BIT 

TSD, M 

{TWO SIDED DISK? 
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019F* 

2802 


jRr 

».SSD 

;IF NOT, CONTINUE 

QTA1 r 

CB38 


SRLR 

B 

; ELSE, CALC NUMBER OF SECTORS/SIDE 

01 A3 r 

T8 

» »SSD: 

MOV 

A, B 

;GET NUMBER OF SECTORS/SIDE 

01A4* 

32 00IE* 


STA 

EOT 

;SET END OF TRACK SECTOR NUMBER 

01A7 r 

B* 


CMP 

C 

;FRONT SIDE OF DISK? 

OIAS' 

3E0Q 


MVI 

A,0 

1 PRESET FOR FRONT SIDE 

01AA» 

3005 


JRNC 

*.FS 

;IF FRONT SIDE, CONTINUE 

01 AC* 

79 


MOV 

A,C 

•get sector number 

01 AD* 

90 


SUB 

B 

;SUBTRACT ONE SIDES WORTH 

01AE* 

4F 


MOV 

C,A 

;TO C-REG 

01AF* 

3E01 


MVI 

A, 1 

;GET HEAD #1 

01B1» 

32 00IB* 

»*FS: 

STA 

HEAD 

;SET HEAD NUMBER 

01B4« 

79 


MOV 

A, C 

;GET SECTOR NUMBER 

01B5* 

32 001C* 


STA 

REC 

:SET RECORD NUMBER 

01B8* 

DDTE12 


MOV 

A.SECSIZU) :GET SECTOR SIZE 

01BB r 

32 QQTD* 


STA 

SIZE 

;SET RECORD SIZE 

01 BE* 

B7 


ORA 

A 

;N=0? 

01BF* 

3E80 


MVI 

A, 128 

;PRESET DTLs128 

01C1 * 

2802 


JRZ. 

».NO 

;IF N=0, CONTINUE 

01C3* 

3EFF 


MVI 

A,OFFH 

;ELSE, DTLsOFFH 

01C?» 

32 0020* 

—NO: 

STA- 

DTL 

;SET DATA LENGTH 

01C8* 

CD 0469* 


CALL 

GETDST 

;GET DST ADDRESS 

01CB* 

11 0000:08 


UZ 

D.GAPLEN# :G£T OFFSET TO GAP LENGTH 

01CE* 

19 


DAD 

D 

;CALC GAP LENGTH ADDRESS 

01CF* 

7E 


MOV 

A,M 

;GET GAP LENGTH 

01D0* 

32 00IF* 


STA 

GPL 

;SET GAP LENGTH 

01D3* 

C9 


RET 


;DONE 

01D4 ’ 

CD 0350* 

SEEK: 

CALL 

SELCUR 

:SELECT I/O DISK 

01D7 * 

DD7E01 


MOV 

A,PDRDRV(X) :GET PD REQ DISK NUMBER 

01 DA’ 

3C 


INR 

A 

;INCREMENT IT 

01DB* 

47 


MOV 

a ,a 

;TO B-REG 

01DC* 

37 


STC 


;SET CARRY FLAG 

01DD* 

21 0000 


LU 

H,0 

;INITIALIZE MASK 

01E0« 

ED6A 

• »SL: 

DADC 

H 

;GET DRIVE MASK 

01E2* 

10FC 


DJNZ 

..SL 


01E4* 

ED5B 000D* 


LDED 

CALTBL 

;GET DRIVE CALIBRATED TABLE 

01E8* 

2C 


INR 

L 


01E9* 

2D 


DCR 

L 

;DRIVE 0-7? 

01EA* 

2006 


JRNZ 

..DOT 

jIF SO, CONTINUE 

01EC* 

7 A 


MOV 

A,D 

;GET CALIBRATED MAP 

01 ED' 

B4 


ORA 

H 

;SET CALIBRATED BIT 

01 EE* 

BA 


CMP 

D 

;WAS IT CALIBRATED? 

01EF* 

57 


MOV 

D, A 

;UPDATE MAP 

01F0* 

1804 


JMPR 

..UM 


01F2* 

7B 

..D07: 

MOV 

A,E 

;GET CALIBRATED MAP 

01F3 * 

B5 


ORA 

L 

;SET CALIBRATED BIT 

01F4* 

BB 


CMP 

E 

;WAS IT CALIBRATED? 

01F5* 

5F 


MOV 

E, A 

jUPDATE MAP 

01F6* 

ED53 000D 1 * 

..UM: 

SDED 

CALTBL 

;UPDATE TABLE 

01FA» 

2844 


JRZ 

.. NRR 

;IF DRIVE CALIBRATED, CONTINUE 

01FC* 

3A OOOF* 


LDA 

FLAGS 

;ELSE, GET FLAGS 

01FF* 

CB47 


BIT 

SLOWSR, 

A ;SLOW STEP RATE SET? 

0201 » 

203A 


JRNZ 

..RD 

jIF SO, CONTINUE 
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0203* 

DD7E01 


MOV 

A,PDRDRV(X) ;GET PD REQ DISK NUMBER 

0206' 

CD 0259* 


CALL 

RECCMD rSEND RECALIBRATE COMMAND 

0209* 

201D 


JRNZ 

..SSSR ;IF ERRORS, CONTINUE 

020B* 

DDT EOT 


MOV 

A,PDRDHV(X) ;GET PD REQ DISK NUMBER 

020E r 

47 


MOV 

B,A ;CONTROLLER DISK TO B-REG 

Q20F*- 

0 E4C 


MVI 

C,76 - t CYLINDER 76 TO G-REG 

0211* 

CD 026 E* 


CALL 

SEKCMD ;SEND SEEK COMMAND 

0214 * 

2012 


JRNZ 

..SSSR ;IF ERRORS, CONTINUE 

0216' 

CD 028A r 


CALL 

RETDST ; ELSE, READ DISK ID 

0219* 

3A 0024* 


LDA 

RCYL ;GET PRESENT CYLINDER NUMBER 

021 C« 

FE4C 


CPI 

76 ;DRIVE STEP TO CYLINDER 767 

021E* 

2008 


JRNZ 

..SSSR ,*IF NOT, CONTINUE 

0220* 

DD7E01 


MOV 

A,PDSDSVU) ;GET PD REQ DISK NUMBER 

0223' 

CD 0259* 


CALL 

RECCMD ;SEND RECALIBRATE COMMAND 

0226* 

2818 


JRZ 

••NRR iIF NO ERRORS, CONTINUE 

0228* 

3 £03 . 

••SSSR: 

MVI 

A,FDCSFY ;GET FDC SPECIFY COMMAND 

022A* 

CD 0412* 


CALL 

CMDRDY ;OUTPUT COMMAND TO FDC 

022D* 

3EA1 

NLOAD 

MVI 

A,SST8SIHDUT ;GET SHUGHAST STEP RATE/HEAD 

022F* 

CD 0418* 


CALL 

DATOUT ;OUTPUT IT TO FDC 

0232* 

3 £24 


MVI 

A,HDLT ;GET HEAD LOAD TIME/NON-DMA BIT 

0234* 

CD 0418* 


CALL 

DATOUT ;OUTPUT IT TO FDC 

0237 * 

FB 


El 

;ENABLE INTERRUPTS 

0238* 

21 OOOF* 


LXI 

H,FLAGS ;GET FLAGS 

023B* 

CBC6 


SET 

SLOWSR,M ;SET SLOW STEP RATE BIT 

023D* 

CD 024F* 

• .HD • 

CALL 

RECAL ;RE-CALIBRATE DRIVE 

0240* 

DD7E01 

•«NRR: 

MOV 

A,PDRDRV(X) ;GET PD REQ DISK NUMBER 

0243* 

47 


MOV 

B,A ;CONTROLLER DISK TO B-REG 

0244* 

DD7E02 


MOV 

A,PDRTRK(X) ;GET PD REQ TRACK NUMBER 

0247 * 

4F 


MOV 

C,A ;CYLINDER TO C-REG 

0248* 

CD 026 E*" 


CALL 

SEKCMD ;SEND SEEK COMMAND 

024B* 

C8 


RZ 

;IF NO ERRORS, DONE 

024C* 

C3 0470* 


JMP 

FATAL ;CONTINUE 

024F* 

DD7E01 

RECAL: 

MOV 

A,PDRDRV(X) ;GET PD REQ DISK NUMBER 

0252* 

CD 0259' 


CALL 

RECCMD ;SEND RECALIBRATE COMMAND 

0255* 

C8 


RZ 

;IF NO ERRORS, DONE 

0256* 

C3 0470* 


JMP 

FATAL ;CONTINUE 

0259* 

F5 

RECCMD: 

PUSH 

PSW ;SAVE CONTROLLER DISK 

025A* 

3E07 


MVI 

A,FDCRCL ;GET FDC RECALIBRATE COMMAND 

025 C’ 

CD 0412’ 


CALL 

CMDRDY ;OUTPUT COMMAND TO FDC 

025F’ 

FI 


POP 

PSW ;RESTORE CONTROLLER DISK 

0260* 

CD 0418’ 


CALL 

DATOUT ;OUTPUT IT TO FDC 

0263’ 

CD 0380’ 


CALL 

WTINT ;WAIT FOR INTERRUPT 

0266* 

3A 0021" 


LDA 

STO ;GET STATUS REGISTER 0 

0269* 

E6E0 


ANI 

OCOHJHFDCSE ;EXTRACT COMPLETION STATUS 

026B* 

FE20 


CPI 

1<FDCSE ;ANY ERRORS? 

026D* 

C9 


RET 

;DONE 

026E* 

C5 

SEKCMD: 

PUSH 

B ;SAVE DISK/TRACK 

026F’ 

3 EOF 


MVI 

A,FDCSK ;GET FDC SEEK COMMAND 

0271 * 

CD 0412* 


CALL 

CMDRDY ;OUTPUT COMMAND TO FDC 

0274’ 

Cl 


POP 

B ;RESTORE DISK/TRACK 
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0275* 

C5 


PUSE 

B 

SAVE DISK/TRACK 

0276 * 

78 


MGV 

A,B 

GET CONTROLLER DISK 

0277 r 

CD 047 a* 


CALL 

DATOUT 

OUTPUT IT TO FDC 

027A* 

CT 


POF 

B 

RESTORE DISK/TRACK 

027B f 

79 


MOT 

A,C 

GET CYLINDER. NUMBER 

027C 1 

CD oat a* 


CALL 

DATOUT 

OUTPUT IT TO FDC 

027F* 

CD 0380* 


CALL 

WTINT 

WAIT FOR INTERRUPT 

0282* 

3A 0021 * 


LDA 

STO 

GET STATUS REGISTER 0 

0285* 

E6EG 


AN! 

OCOH!1<FDCSE :EXTRACT COMPLETION STATUS 

0287* 

FE20 


CPU 

1<FDCS£ ; 

;ANY ERRORS? 

0289* 

C9 


RET 


[DONE 

028A* 

CD 0305* 

RETDST: 

CALL 

RETRDT 

RETURN READY STATUS 

028D< 

B7 


ORA 

A 

DRIVE READY? 

028E’ 

C8 


RZ 


IF NOT, DONE 

028F» 

OEOO 


MVT 

C,0 

ELSE, GET INITIAL TYPE VALUE 

0291' 

3A 0029** 


LDA 

ST3 

GET STATUS REGISTER 3 

0294* 

CB5F 


BIT 

ST3TS,A 

ONE-SIDED DISK? 

0296* 

2802 


jrz: 

..OS 

YES 

0298* 

CBD1 


SET 

TSD.C 

SET TWO-SIDED DISK BIT 

029A* 

DD7E01 

■* • OS: 

MOV 

A t PDRDRV(X) :GET PD REQ DISK NUMBER 

029 D* 

32 0014«* 


STA 

RIDDSK 

;SET READ ID DISK 

02AO* 

CD 02EE* 


CALL. 

*.FD 

;FIND DISK DENSITY 

02A3* 

280F 


JRZ 

..DF 

;IF DENSITY FOUND, CONTINUE 

02A5 * 

C5 


PUSH 

B 

[ELSE, SAVE DISK TYPE CODE 

02A6* 

DD7E01 


MOV 

A,PDRDRVCX) :GET PD REQ DISK NUMBER 

02A9 r 

CD 0259' 


CALL 

RECCMD 

RECALIBRATE DRIVE 

02AC* 

Cl 


POP 

B 

RESTORE DISK TYPE CODE 

02AD* 

2032 


JRNZ 

..NR 

IF UNABLE TO RECALIBRATE, CONTINUE 

02AF* 

CD 02EE* 


CALL 

..FD 

ELSE, ATTEMPT TO FIND DISK DENSITY 

02B2 ’ 

202D 


JRNZ 

..NR 

IF DENSITY NOT FOUND, CONTINUE 

02B4 * 

B1 

..DF: 

ORA 

C 

ADD SECTOR SIZE TO TYPE CODE 

02B5 * 

4F 


MOV 

C, A 


02B6 * 

CB51 


BIT 

TSD,C j 

•TWO SIDED BIT SET? 

02B8' 

2814 


JRZ 

. .FDI | 

IF NOT, CONTINUE 

02BA* 

{V) 

o 

o 

—a 

& 

U 


LXI 

H,RIDDSK 

;GET READ ID DISK 

02BD* 

CBD6 


SET 

2#M ; 

;SET HEAD BIT 

02BF* 

3E4A 


MVI 

A.FDCRIDl1<FDCMFM :GET READ ID CMD (DD) 

02C1 • 

CB59 


BIT 

DDD, C ; 

•DOUBLE DENSITY BIT SET? 

02 C3* 

2002 


JRNZ 

. .DD 

•IF SO, CONTINUE 

02C5 * 

CBB7 


RES 

FDCMFM,A 

;ELSE, RESET MFM BIT 

02C7* 

CD 02FD* 

• .DD: 

CALL 

..RID 

•ATTEMP TO READ ID ON BACK SIDE 

02CA* 

2802 


JRZ 

..FDI 

IF READABLE, CONTINUE 

02CC* 

CB91 


RES 

TSD.C 

[ELSE, RESET TWO SIDED BIT 

02CE* 

11 0000:09 

..FDI: 

LXI 

D.DSTBLS# :GET DISK SPEC TABLES 

02D1 » 

79 

..SL2: 

MOV 

A, C 

GET DISK TYPE CODE 

02D2 1 

21 0000:0A 


LXI 

H.DTCOtf 

GET OFFSET TO DISK TYPE CODE 

02D5* 

19 


DAD 

D 

CALC DISK TYPE CODE ADDRESS 

02D6» 

BE 


CMP 

M 

DISK SPEC TABLE FOUND? 

02D7 1 

280A 


JRZ 

..DSTF 

IF SO, CONTINUE 

02D9 * 

EB 


XCHG 


DISK SPEC TABLE ADDRESS TO HL-REG 

02DA* 

5E 


MOV 

E,M 

GET DISK SPEC TABLE LINK POINTER 

02DB 1 

23 


INX 

H 


02DC* 

56 


MOV 

D,M 
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02DD r 

7A 

MOV 

A,D 


02DE* 

B3 

ORA 

E 

;END OF LISTT 

02DF» 

20F0 

JRNZ 

»*SL2 

{IF NOT, CONTINUE 

02E1» 

AF 

*.HRr XRA 

A 

{ELSE, SET RETURN CODExO 

02E2’ 

C9 

RET 


{DONE 

02E3* 

13 

••DSTF: INX 

D 

;ADVANCE PAST LINK POINTER 

02E4* 

13 

INK 

D 


02E5 * 

DD730C 

MOV 

PDRDSTCX),E ;SET DISK SPEC TABLE ADDRESS 

02E8*' 

DD720D 

MOV 

PDRDST+t(X),D 

G2EB* 

3EFF 

MV I 

A,0FFH 

;SET RETURN CODEsOFFH 

Q2ED* 

C9 

RET 


{DONE 

02EE r 

3E0A 

..FD: MVI 

A.FDCRID {GET FDC READ ID COMMAND (SD) 

02F0’ 

CD 02FD* 

CALL 

..RID 

•ATTEMPT TO READ SINGLE-DENSITY 

02F3* 

C8 

RZ 


{IF SINGLE-DENSITY, DONE 

02F4 f 

3E4A 

MVI 

A.FDCRID11<FDCMFM {GET READ ID CMD (DD) 

02F6» 

CD 02FD* 

CALL 

..RID 

{ATTEMPT TO READ DOUBLE-DENSITY 

02F9* 

CO 

RNZ 


{IF UNABLE, DONE 

02FA* 

CBD9 

'SET 

DDD, C 

{SET DOUBLE-DENSITY DISK BIT 

02FC* 

C9 

RET 


{DONE 

02FD’ 

C5 

.•RID: PUSH 

B 

{SAVE BC 

02FE T 

CD 0326’ 

CALL 

READID 

{READ DISK ID 

0301 * 

Cl 

POP 

B 

{RESTORE BC 

0302‘ 

C9 

RET 


{DONE 

0303* 

DD7E01 

RETRDY: MOV 

A.PDRDRV(X) {GET PD REQ DISK NUMBER 

0306' 

FE04 

CPI 

4 

{TEST FOR VALID DRIVE NUMBER 

0308' 

3E00 

MVI 

A,0 

{PRESET RETURN CODEsO 

030A* 

DO 

RNC 


{IF INVALID DRIVE, RETURN NOT READY 

030B* 

DB8E 

IN 

FDCST 

{GET FDC STATUS 

030D* 

3C 

INR 

A 

{CONTROLLER PRESENT? 

030E* 

C8 

RZ 


{IF NOT, DONE 

030F* 

CD 0350’ 

CALL 

S EL CUR 

{ELSE, SELECT REQUESTED DRIVE 

0312* 

CD 031C* 

CALL 

..RDY 

{CHECK IF DRIVE READY 

0315* 

CO 

RNZ 


{IF SO, DONE 

0316* 

21 0001 

LXI 

H,1 

{ELSE, DELAY ONE TICK... 

0319* 

CD 0000:OB 

CALL 

DELAY# 

{...SO 765 CAN SCAN 

031C* 

CD 036D» 

..RDY: CALL 

SENSDS 

{SENSE DRIVE STATUS 

031F* 

CB6F 

BIT 

ST3RDY, 

A {DRIVE READY? 

0321 » 

3E00 

MVI 

A, 0 

{PRESET RETURN CODEsO 

0323’ 

C8 

RZ 


{IF DRIVE NOT READY, DONE 

0324* 

2F 

CMA 


{ELSE, SET RETURN CODEsOFFH 

0325’ 

C9 

RET 


{DONE 

0326* 

CD 0412’ 

READID: CALL 

CMDRDY 

{OUTPUT COMMAND TO FDC 

0329 ’ 

3A 0014” 

LDA 

RIDDSK 

{GET READ ID DISK 

032C* 

CD 0418’ 

CALL 

DATOUT 

{OUTPUT IT TO FDC 

032F’ 

CD 0380’ 

CALL 

WTINT 

{WAIT FOR INTERRUPT 

0332’ 

3A 0021" 

LDA 

STO 

{GET STATUS REGISTER 0 

0335’ 

E6C0 

ANI 

OCOH 

{EXTRACT COMPLETION STATUS 

0337 ’ 

3A 0027” 

LDA 

RSIZE 

{RETURN SECTOR SIZE 

033A’ 

C9 

RET 

• 


{DINE 

033B* 


DLCPOL: 


{DELAY COMPLETE POLL ROUTINE 

033B’ 

0000 

.WORD 

0 
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Q33D' 

0000 

• WORD 

0 


033F* 

DBSC 

DLCPRr IN 

DSKCTL 

{GET DISK CONTROLLER STATUS 

0341 * 

CB7F 

BIT 

DSKDLC,A 

,-DELAY COMPLETE (MOTORS RUNNING)? 

0343' 

C8 

RZ 


{IF NOT, DONE 

Q344 r 

21 033B’ 

LXI 

H, DLCPOL 

{ELSE, GET POLL ROUTINE 

0347 r 

CD 0000:0C 

CALL 

UNLINK# 

; UNLINK POLL ROUTINE FROM POLL LIST 

034A» 

21 0006" 

LXI 

H,DWTSPH 

{GET DISK WAIT SEMAPHORE 

034D» 

C3 0000:05 

JMP 

# 

SIGNAL# 

; CONTINUE 

0350 ‘ 

DB8C 

SELCUR: IN 

DSKCTL 

{GET DISK CONTROLLER STATUS 

0352 * 

OF 

RRC 


;EXTRACT SELECTED DRIVE 

0353’ 

E603 

ANI 

3 


0355' 

4F 

MOV 

C, A 

{TO C-REG 

0356» 

DD7 E01 - 

MOV 

A,PDRDRV(X) {GET PD REQ DISK NUMBER 

0359’ 

B9 

CMP 

C 

;DRIVE ALREADY SELECTED? 

035A* 

2802 

JRZ 

..DAS 

;IF SO, CONTINUE 

035C* 

D38A 

OUT 

DSKSEL 

{ELSE, SELECT CONTROLLER DISK 

035E 1 

11 033B» 

..DAS: LXI 

D,DLCPOL 

;GET POLL ROUTINE 

0361 » 

CD 0000:0D 

CALL 

LNKPOL# 

; CREATE POLL ROUTINE 

0364' 

CD 033F’ 

CALL 

DLCPR 

;EXECUTE POLL ROUTINE 

0367’ 

21 0006" 

LXI 

H,DWTSPH 

;GET DISK WAIT SEMAPHORE 

036A' 

C3 0000:04 

JMP 

• 

WAIT# 

{DISPATCH IF NECESSARY 

036D* 

3E04 

SENSDS: MVT 

A,FDCSDS 

{GET FDC SENSE DRIVE STATUS CMD 

036F' 

CD 0412* 

CALL 

CMDRDY 

{OUTPUT COMMAND TO FDC 

0372' 

DD7E01 

MOV 

A,PDRDRVCX) {GET PD REQ DISK NUMBER 

0375' 

CD 0418’ 

CALL 

DATOUT 

{OUTPUT IT TO FDC 

0378* 

CD 041F* 

CALL 

DATAIN 

{GET STATUS REGISTER 3 

037 B* 

32 0029" 

STA 

ST3 

{SAVE STATUS REGISTER 3 

037 E* 

FB 

El 


{ENABLE INTERRUPTS 

037F’ 

C9 

RET 


{DONE 

0380’ 

FB 

WTINT: El 


{ENABLE INTERRUPTS 

0381 ' 

21 0006" 

LXI 

H,DWTSPH 

{GET DISK WAIT SEMAPHORE 

0384’ 

C3 0000:04 

JMP 

# 

WAIT# 

{DISPATCH IF NECESSARY 

0387* 

ED73 0000:0E 

DSKISR: SSPD 

INTSP# 

{SAVE INTERRUPT STACK POINTER 

038B» 

31 0000:OF 

LXI 

SP,INTSTK# {SET UP AUX STACK 

038E’ 

F5 

PUSH 

PSW 

{SAVE REGISTERS 

038F* 

C5 

PUSH 

B 


0390’ 

D5 

PUSH 

D 


0391» 

E5 

PUSH 

H 


0392' 

DB8E 

..RQML: IN 

FDCST 

{GET FDC STATUS 

0394’ 

CB7F 

BIT 

FDCRDY,A 

{FDC READY FOR CONVERSATION? 

0396’ 

28FA 

JRZ 

..RQML 

{IF NOT, WAIT 

0398’ 

32 0028" 

STA 

MAINST 

{SAVE MAIN STATUS REGISTER 

039B’ 

CB77 

BIT 

FDCOUT,A 

;FDC IN OUTPUT MODE? 

039D» 

2020 

JRNZ 

..RW 

;IF SO, PROCESS 

039F’ 

3E08 

MVI 

A,FDCSIS 

{GET SENSE INTERRUPT STATUS CMD 

03A1« 

D38F 

OUT 

FDCDAT 

;OUTPUT IT TO FDC DATA REGISTER 

03A3' 

CD 041F’ 

CALL 

DATAIN 

{GET STATUS REGISTER 0 

03A6' 

4F 

MOV 

C, A 

{SAVE IT IN C-REG 

03A7’ 

E6C0 

ANI 

OCOH 

{EXTRACT COMPLETION STATUS 
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03A9' 

FE80 


CPI 

80H 

; INTERRUPT STACK: EMPTT7 

03AB* 

2829 


JRZ 

..X 

;IF SO, DONE 

Q3AD r 

CB 041 F» 


CALL 

DATAIN 

JGET PRESENT CYLINDER NUMBER 

03BO* 

CB69 


BIT 

ST0SE,C 

;READY LINE CHANGE STATE7 

03B2* 

28DE 


JRZ 

..RQML 

jIF SO, IGNORE 

03B4» 

32 0024* 


STA 

RCTL 

•else, SAVE pcn 

03B7» 

79 


MOV 

A, C 

;GET STATUS REGISTER 0 

03B8 1 

32 0021* 


STA 

STO 

;SAVE IT 

03BB* 

3E01 


MVI 

A,1 

;SET INTERRUPT COMPLETION STATUS 

03BD f 

180F 


JMPR 

••SIGC 

{CONTINUE 

03BF* 

21 0021* 

..RWr 

LZX 

H,RESULT 

•get RESULT TABLE 

03C2* 

0607 


MVI 

B,7 

;GET LENGTH OF RESULT PHASE 

03C4» 

CD 041F* 

• • RL: 

CALL 

DATAIN 

{GET RESULT BYTE FROM FDC 

03C7 * 

77 


MOV 

M, A 

{STORE IN RESULT AREA 

03C8» 

23 


INZ 

H 

{INCREMENT POINTER 

03C9* 

. 10F9 


DJNZ 

..RL 

{READ ALL SEVEN BITES 

03CB f 

AF 


XRA 

A 


03CC* 

0388 


OUT 

DMACTL 

{DISABLE DMA CONTROLLER 

03CE 1 

21 0006* 

..SIGCt 

LXI 

H,DWTSPH 

{GET DISK WAIT SEMAPHORE 

03D1 * 

CD 0000:05 


CALL 

SIGNAL# 

{SIGNAL PROCESS AS READY 

03D4* 

18BC 


JMPR 

..RQML 

{FLUSH ANY REMAINING INTERRUPTS 

03D6 r 

El 

..Xi 

POP 

H 

{REGISTERS 

03D?« 

D1 


POP 

D 


03D8* 

Cl 


POP 

B 


Q3D9 f 

FI 


POP 

PSW 


03DA» 

ED7B OOOOiOE 


LSPD 

INTSP# 

{RESTORE STACK POINTER 

03DE r 

C3 0000:10 


JMP 

ISRXIT# 

;CONTINUE 

03E1 » 

CD 0461 * 

CMDOUT: 

CALL 

GETTCA 

{GET DISK TYPE CODE ADDRESS 

03E4' 

3A 0010" 


LDA 

IORWC 

{GET READ/WRITE COMMAND 

03ET* 

CB5E 


BIT 

DDD,M 

{DOUBLE DENSITY DISK? 

03E9' 

2802 


JRZ 

..SD 

{IF NOT, SINGLE DENSITY 

03EB f 

CBF7 


SET 

FDCMFM,A 

, {ELSE, SET DOUBLE DENSITY BIT 

03ED* 

CB56 

..SD: 

BIT 

TSD,M 

{TWO-SIDED DISK? 

03EF T 

2802 


JRZ 

..SS 

;IF NOT, SINGLE SIDED 

03F1» 

CBFF 


SET 

FDCMT, A 

{ELSE, SET MULTI-TRACK BIT 

03F3’ 

CD 0412' 

• • SS: 

CALL 

CMDRDT 

{SEND COMMAND TO FDC 

03F6» 

DD7E01 


MOV 

A,PDRDRV(X) :GET PD REQ DISK NUMBER 

03F9* 

21 001B" 


LXI 

H,HEAD 

{GET HEAD NUMBER 

03FC» 

CB46 


BIT 

0,M 

{HEAD #0? 

03FE* 

2802 


JRZ 

..FS 

{IF SO, CONTINUE 

0400' 

CBD7 


SET 

2, A 

{ELSE, SET HEAD #1 BIT IN I/O DISK 

0402’ 

CD 0418' 

..FS: 

CALL 

DATOUT 

{OUTPUT IT TO FDC 

0405* 

21 001 A" 


LXI 

H,IDINFO 

{GET SECTOR ID INFO 

0408* 

0607 


MVI 

B,7 

{BsLENGTH OF ID INFO 

Q40A' 

7E 

..1DL: 

MOV 

A,M 

{GET BYTE FROM LIST 

040B' 

23 


INX 

H 

{INCREMENT POINTER 

040C’ 

CD 0418' 


CALL 

DATOUT 

{OUTPUT BYTE TO FDC 

040F» 

10F9 


DJNZ 

..IDL 

{SEND ENTIRE LIST 

0411 ' 

C9 


RET 


{DONE 

0412' 

CD 042A* 

CMDRDY: 

CALL 

OUTRDY 

{WAIT FOR FDC READY 

0415' 

F3 


DI 


{DISABLE INTERRUPTS 

0416 » 

1803 


JMPR 

OUTCOM 

{JOIN COMMON CODE 
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041 a* 

CD 042A* 

DATOUT: 

CALL. 

OUTHDY 

;WAIT FOR FDC READY 

041 B* 

79 

OUTCOMr 

M01T 

A, C 

; RESTORE OUTPUT BUTE 

041C* 

D38F 


OUT 

FDCDAT 

;OUTPUT BYTE TO FDC DATA REGISTER 

Q41E r 

C* 

• 

RET 


JDONE 

041F* 

DB82 

DATAINi 

IN 

FDCST 

•GET FDC STATUS 

0421* 

07 


RLC 


•TEST FDC FOR READY 

0422* 

30FB 


JRNC 

DATAIN 

f IF NOT READY, WAIT 

0424* 

OT 


RLC 


jTEST FDC DIRECTION 

0425* 

300B 


JRNC 

FDCERR 

;IF WRONG DIRECTION, DIAGNOSE 

0427' 

DB8F 


IN 

FDCDAT 

;GET FDC DATA BYTE 

0429* 

C9 


RET 


;DONE 

042A* 

4F 

OUTHDY: 

MOV 

C, A 

;SAVE OUTPUT BYTE 

042B* 

DB8E 

**RW: 

IN 

FDCST 

;GET FDC STATUS 

042D* 

07 


RLC 


;TEST FDC FOR READY 

042E* 

30FB 


JRNC 

*,RW 

;IF NOT READY, WAIT 

0430* 

07 


RLC 


j TEST FDC DIRECTION 

0431 * 

DO 

# 

RNC 


;IF DIRECTION CORRECT, DONE 

0432* 

CD 0000;11 

FDCERR: 

CALL 

DMS# 

;SOUND BELL 

0435* 

87 


• AS CIS 

[ABEL] 


0436* 

CD 0000:12 


CALL. 

CONSO# 

;SHIFT CONSOLE TO ERROR LINE 

0439* 

CD 0000:11 


CALL 

DMS# 

;DISPLAY ERROR MESSAGE 

043C* 

464443204572 


.AS CIS 

"FDC Error” 

0445’ 

C3 0445’ 


JMP 

• 

;HALT 

0448’ 

21 0080 

CALCSS: 

LXI 

H.128 

:GET 128 BYTE SECTOR LENGTH 

044B’ 

DD7E12 


MOV 

A,SECSIZ(X) :GET SECTOR SIZE 

044E* 

3D 

• . 3La 

DCR 

A 

;DECREMENT SECTOR SIZE 

044F’ 

F8 


RM 


;IF UNDERFLOW, DONE 

0450’ 

29 


DAD 

H 

;ELSE, SHIFT SECTOR SIZE LEFT 

0451 ’ 

18FB 


JMPR 

..SL 

;CONTINUE 

0453’ 

CD 0469’ 

GETXLT: 

CALL 

GETDST 

;GET DST ADDRESS' 

0456* 

11 0000:13 


LXI 

D,XLTBL# 

;GET OFFSET TO TRANSLATION TABLE 

0459' 

19 


DAD 

D 

;CALC TRANSLATION TABLE ADDRESS 

045A’ 

5E 


MOV 

E,M 

;GET TRANSLATION TABLE ADDRESS 

045B* 

23 


INX 

H 


045C* 

56 


MOV 

D,M 


045D* 

EB 


XCHG 


;TRANSLATION TABLE ADDRESS TO HL-REC 

045E* 

7 C 


MOV 

A, H 


045F’ 

B5 


ORA 

L 

;TRANSLATION REQUIRED? 

0460' 

C9 


RET 


;DONE 

0461 ’ 

CD 0469' 

GETTCA: 

CALL 

GETDST 

:GET DST ADDRESS 

0464* 

11 0000:14 


LXI 

D.TYPCOD# :GET OFFSET TO DISK TYPE CODE 

0467 ’ 

19 


DAD 

D 

;CALC DISK TYPE CODE ADDRESS 

0468’ 

C9 


RET 


;DONE 

0469’ 

DD6E0C 

GETDST: 

MOV 

L,PDRDST(X) ;GET PD REQUEST DST ADDRESS 
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046C* 

DD6600 


MOV 

H.PDRDSTkI (X) 

Q46F* 

C9 


RET 


;DONE 

0470 * 

ED7B 0012* 

FATAL: 

LSPD 

RETSP 

;RESTORE STACK POINTER 

0474» 

3EFF 


MVI 

AfOFFH 

;RETURN ERROR CODE 

0476* 

C9 

» 

RET 


;DONE 

0000* 


t 

• 

•LOG 

•DATA.# 

;LOCATE IN DATA AREA 

0000* 


DMX2PH: 



;MUTUAL EXCLUSION SEMAPHORE 

0000* 

0001 


•WORD 

1 

;SEMAPHORE COUNT 

0002* 

0002* 

•.DMXH: 

• WORD 

..DMXH 

;SEMAPHORE P/D HEAD 

0004* 

0002* 


•WORD 

..DMXH 


0006* 


DWTSPH: 



;DI3K WAIT SEMAPHORE 

0006* 

0000 


•WORD 

0 

;SEMAPHORE COUNT 

0008* 

0008* 

..DWTH: 

• WORD 

..DWTH 

;SEMAPHORE P/D HEAD 

000A* 

0008* 


•WORD 

..DWTH 


OOOC* 

00 

TBYCNT: 

•BYTE 

0 

;TRY COUNT 

OOOD* 

0000 

CALTBL: 

• WORD 

0 

;DRIVE CALIBRATED TABLE 

OOOF" 

00 

FLAGS: 

• BYTE 

0 

;FLAGS 

0010" 

00 

IORWC: 

•BYTE 

0 

;I/0 READ/WRITE COMMAND 

0011" 

00 

IODMAC: 

• BYTE 

0 

,-I/0 DMA COMMAND 

0012" 

0000 

RETSP: 

• WORD 

0 

;ERROR RETURN STACK POINTER 

0014" 

00 

RIDDSK: 

•BYTE 

0 

;READ ID DISK 

0015" 

00 

CURS EC: 

•BYTE 

0 

;CURRENT SECTOR NUMBER 

001-6" 

0000 

CURADR: 

.WORD 

0 

;CURRENT DMA ADDRESS 

0018" 

00 

CURSC: 

•BYTE 

0 

;CURRENT SECTOR COUNT 

0019" 

00 

10ERR: 

.BYTE 

0 

;I/0 ERROR STATUS 

001 A" 


IDINFO: 



;SECTOR ID INFO LIST 

001 A" 

00 

CYL: 

•BYTE 

0 

;DISK CYLINDER NUMBER 

001B" 

00 

HEAD: 

.BYTE 

0 

;DISK HEAD NUMBER 

001C" 

00 

REC: 

.BYTE 

0 

;DISK RECORD NUMBER 

001D" 

00 

SIZE: 

.BYTE 

0 

;DISK SECTOR SIZE 

001 E" 

00 

EOT: 

.BYTE 

0 

;END OF TRACK SECTOR NUMBER 

001F" 

00 

GPL: 

.BYTE 

0 

;DISK GAP 3 SIZE 

0020" 

00 

DTL: 

•BYTE 

0 

;DISK SECTOR SIZE WHEN SIZEsO 

0021" 


RESULT: 



;RESULT PHASE LIST 

0021" 

00 

STO: 

.BYTE 

0 

;STATUS REGISTER 0 

0022" 

00 

ST1: 

.BYTE 

0 

;STATUS REGISTER 1 

0023" 

00 

ST2: 

.BYTE 

0 

;STATUS REGISTER 2 

0024" 

00 

RCYL: 

.BYTE 

0 

;DISK CYLINDER NUMBER 

0025" 

00 

RHEAD: 

.BYTE 

0 

;DISK HEAD NUMBER 

0026" 

00 

RREC: 

.BYTE 

0 

,* DISK RECORD NUMBER 

0027" 

00 

RSIZE: 

.BYTE 

0 

;DISK SECTOR SIZE 

0028" 

00 

MAINST: 

.BYTE 

0 

;MAIN STATUS REGISTER 

0029" 

00 

ST3: 

.BYTE 

0 

;STATUS REGISTER 3 


.END 
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IDENT DSEFMT ;MODULE ID 


INSERT DREQUATE ;DRIVER SYMBOLIC EQUIVALENCES 


0002 

i 

1 

► 

rSD 5 2 


; TWO-SIDED DISK BIT (TYPE CODE) 

0003 

I 

>DD s. 3 


;DOUBLE DENSITY DISK BIT (TYPE CODE: 

0004 

MINI = A 


^MINI-FLOPPY DISK BIT (TYPE CODE) 

0000* 

i 

.LOC 

.PROG.# 

;LOCATE IN PROGRAM AREA 


- 

1024 BYTE SECTOR 

r DOUBLE-DENSITT, TWO-SIDED 

0000* 

-0011* i 

1STBLS: : .WORD 

.+DSTL 

;DISK SPEC TABLE LINK POINTER 

0002* 

04 

.BYTE 

4 

;BLOCK SIZE 

0003 r 

0268 

.WORD 

(77*06* 

(1<3)))/(1<4) ;NUMBER OF BLOCKS 

0005* 

04 

.BYTE 

4 

;NUMBER OF DIRECTORY BLOCKS 

0006* 

03 

.BYTE 

3 

i PHYSICAL SECTOR SIZE (2~N*128) 

0007 * 

0010 

.WORD 

16 

;PHYSICAL SECTORS PER TRACK 

0009* 

004D 

.WORD 

77 

;PHYSICAL TRACKS PER DISK 

000B* 

0000 

.WORD 

0 

;NUMBER OF RESERVED TRACKS 

000D * 

0000 

.WORD 

0 

:TRANSLATION TABLE ADDRESS 

OOOF* 

OF 

.BYTE 

1<DDD!1<TSDl3 ;DISK TYPE CODE 

0010* 

35 

.BYTE 

35H 

;GAP LENGTH 



1024 BYTE SECTOR 

, DOUBLE-DENSITY, TWO-SIDED (MINI) 



.WORD 

•+DSTL 

;DISK SPEC TABLE LINK POINTER 



.BYTE 

4 

.•BLOCK SIZE 



.WORD 

(40*(10*(1<3)))/C1<4) :NUMBER OF BLOCKS 



.BYTE 

2 

;NUMBER OF DIRECTORY BLOCKS 



.BYTE 

3 

;PHYSICAL SECTOR SIZE (2~N*128) 



.WORD 

10 

;PHYSICAL SECTORS PER TRACK 



.WORD 

40 

;PHYSICAL TRACKS PER DISK 



.WORD 

0 

;NUMBER OF RESERVED TRACKS 



.WORD 

0 

:TRANSLATION TABLE ADDRESS 



.BYTE 

1<MINII1<DDD11<TSD13 5DISK TYPE CODE 



.BYTE 

35H 

;GAP LENGTH 



1024 BYTE SECTOR 

, DOUBLE-DENSITY, ONE-SIDED 

0011' 

0022* 

.WORD 

.+DSTL 

;DISK SPEC TABLE LINK POINTER 

0013’ 

04 

.BYTE 

4 

:BLOCK SIZE 

0014* 

0134 

.WORD 

(77*(8*(1<3)))/(1<4) : NUMBER OF BLOCKS 

0016* 

03 

.BYTE 

3 

;NUMBER OF DIRECTORY BLOCKS 

0017 » 

03 

.BYTE 

3 

;PHYSICAL SECTOR SIZE (2~N*128) 
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00l8 f 

0008 

•WORD 

8 

•, PHYSICAL SECTORS PER TRACK 

001A r 

004D 

•WORD 

77 

;PHYSICAL TRACKS PER DISK 

001C* 

0000 

•WORD 

0 

;RESERVED TRACKS 

001E* 

0000 

•WORD 

0 

{TRANSLATION TABLE ADDRESS 

0020» 

OB 

•BYTE 

KDDD13 

{DISK type code 

0021 * 

35 

•BYTE 

35H 

{GAP LENGTH 


1024. BITE SECTOR, DOUBLE-DENSITY, ONE-SIDED (MINI) 



• WORD 
.BITE 
•WORD 
.BITE 
.BITE 

• WORD 
•WORD 

• WORD 
•WORD 
.BITE 
.BYTE 


•+DSTL {DISK SPEC TABLE LINK POINTER 
3 *BLOCK SIZE 

(40*(5*( K3)))/(l<3) ; NUMBER OF BLOCKS 

2 ;NUMBER OF DIRECTORY BLOCKS 

3 {PHYSICAL SECTOR SIZE (2~N«128) 

5 ;PHYSICAL SECTORS PER TRACE 

40 ; PHYSICAL- TRACKS PER DISK 

0 ;RESERVED TRACKS 

0 ;TRANSLATION TABLE ADDRESS 

1<MINI11<DDD13 JDISK TYPE CODE 
35H ;GAP LENGTH 


512 BYTE SECTOR, DOUBLE-DENSITY, TWO-SIDED 


• WORD 
.BYTE 

• WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 

• WORD 
.WORD 
.BYTE 
.BYTE 


•+DSTL ;DISK SPEC TABLE LINK POINTER 

4 •BLOCK SIZE 

(77*(30*(1<2)))/(1<4) ;NUMBER OF BLOCKS 

4 ;NUMBER OF DIRECTORY BLOCKS 

2 ;PHYSICAL SECTOR SIZE (2~N*128) 

30 ;PHYSICAL SECTORS PER TRACK 

77 ;PHYSICAL TRACKS PER DISK 

0 ;RESERVED TRACKS 

0 ;TRANSLATION TABLE ADDRESS 

1<DDD11<TSD!2 ;DISK TYPE CODE 
1BH ;GAP LENGTH 


512 BYTE SECTOR, DOUBLE-DENSITY, ONE-SIDED 


WORD 

.+DSTL 

;DISK SPEC TABLE LINK POINTER 

.BYTE 

4 

;BLOCK SIZE 

WORD 

(77 # (15 # (1<2)))/(1<4) :NUMBER OF BLOCKS 

.BYTE 

3 

{NUMBER OF DIRECTORY BLOCKS 

BYTE 

2 

{PHYSICAL SECTOR SIZE (2~N*128) 

WORD 

15 

{PHYSICAL SECTORS PER TRACK 

WORD 

77 

{PHYSICAL TRACKS PER DISK 

WORD 

0 

{RESERVED TRACKS 

WORD 

0 

{TRANSLATION TABLE ADDRESS 

.BYTE 

1<DDD!2 

{DISK TYPE CODE 

BYTE 

1BH 

{GAP LENGTH 


; 512 BYTE SECTOR, SINGLE-DENSITY, TWO-SIDED 

0022 T 0033' ’ .WORD .+DSTL {DISK SPEC TABLE LINK POINTER 

0024» 04 .BYTE 4 {BLOCK SIZE 

0025' 0134 .WORD (77 # <16*(1<2)))/(1<4) ;NUMBER OF BLOCKS 




PSA Macro Assembler [Cl2011-0102 I 


Page 3 


DSKFMT - TURBODOS OPERATING SYSTEM' DRIVE SPECIFICATION TABLES 


COPYRIGHT (C) 1981* 

SOFTWARE 2000 

r INC. 



0027* 

03 


.BYTE 

3 

;NUMBER OF DIRECTORY BLOCKS 

0028* 

02 


.BYTE 

2 

; PHYSICAL SECTOR SIZE (2~N*128) 

0029* 

0010 


•WORD 

16 

; PHYSICAL SECTORS PER TRACK 

002B* 

004D 


.WORD 

77 

; PHYSICAL TRACKS PER DISK 

002D* 

0000 


•WORD 

0 

;RESERVED TRACKS 

002F r 

000Q 


.WORD 

0 

;TRANSLATION TABLE ADDRESS 

0031 * 

06 


.BYTE 

KTSDI2 

;DISK TYPE CODE 

0032* 

IB 


.BYTE 

1BH 

;GAP LENGTH 



7 

•- 

9 

512 BYTE SECTOR, 

SINGLE-DENSITY, ONE-SIDED 

0033 f 

0044* 

9 

.WORD 

•+DSTL 

;DISK SPEC TABLE LINK POINTER 

0035’ 

04- 


.BYTE 

4 

:BLOCK SIZE 

0036* 

009A 


• WORD 

(77*(8*(1<2)))/(1<4) ;NUMBER OF BLOCKS 

0038* 

02. 


•BYTE 

2 

;NUMBER OF DIRECTORY BLOCKS 

0039* 

02 


.BYTE 

2 

; PHYSICAL. SECTOR SIZE (2~M*128) 

003A* 

0008 


•WORD 

8 

; PHYSICAL. SECTORS PER TRACK 

003C’ 

004D 


•WORD 

7T 

; PHYSICAL TRACKS PER DISK 

003E* 

0000 


.WORD 

0 

; RESERVED TRACKS 

0040 » 

0000 


•WORD 

0 

;TRANSLATION TABLE ADDRESS 

0042* 

02 


.BYTE 

2 

; DISK TYPE CODE 

0043* 

IB 


.BYTE 

1BH 

;GAP LENGTH 


256 SITE SECTOR, DOUBLE-DENSITY^ TWO-SIDED 


• WORD 

• +DSTL- 

;DISK SPEC TABLE LINK POINTER 

.BYTE 

4 

:BLOCK SHZET 

.WORD 

(77*(52*(1<1)))/(1<4) :NUMBER OF BLOCKS 

.BYTE 

4 

;NUMBER OF DIRECTORY BLOCKS 

.BYTE 

1 

;PHYSICAL SECTOR SIZE (2~N*128) 

.WORD 

52 

;PHYSICAL SECTORS PER TRACK 

.WORD 

77 

;PHYSICAL TRACKS PER DISK 

.WORD 

0 

;RESERVED TRACKS 

.WORD 

0 

:TRANSLATION TABLE ADDRESS 

.BYTE 

1<DDDl1<TSDI1 :DISK TYPE CODE 

.BYTE 

OEH 

;GAP LENGTH 

256 BYTE SECTOR, 

DOUBLE-DENSITY, ONE-SIDED 

• WORD 

• +DSTL- 

;DISK SPEC TABLE LINK POINTER 

.BYTE 

4 

;BLOCK SIZE 

.WORD 

(77*(26* 

(1<1)))/(1<4) ;NUMBER OF BLOCKS 

.BYTE 

2 

; NUMBER OF. DIRECTORY BLOCKS 

.BYTE 

1 

;PHYSICAL SECTOR SIZE (2~N»128) 

.WORD 

26 

;PHYSICAL SECTORS PER TRACK 

.WORD 

77 

;PHYSICAL TRACKS PER DISK 

.WORD 

0 

;RESERVED TRACKS 

.WORD 

0 

;TRANSLATION TABLE ADDRESS 

.BYTE 

1<DDDl1 

;DISK TYPE CODE 

.BYTE 

OEH 

;GAP LENGTH 


256 BYTE SECTOR, SINGLE-DENSITY, TWO-SIDED 


WORD 


+DSTL ;DISK SPEC TABLE LINK POINTER 
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.BYTE 

4 

:BLOCK SIZE 

.WORD 

(77*C30 # (1<D))/C1<4) :NUMBER OF BLOCKS 

.BYTE 

3 

;NUMBER OF DIRECTORY BLOCKS 

.BYTE 

1 

;PHYSICAL SECTOR SIZE (2~N«128) 

•WORD 

30 

;PHYSICAL SECTORS PER TRACK 

.WORD 

77 

jPHYSICAL TRACKS PER DISK 

•WORD 

0 

;RESERVED TRACKS 

•WORD 

0 

;TRANSLATION TABLE ADDRESS 

.BYTE 

KTSDtl 

•DISK TYPE CODE 

•BYTE 

OEH 

{GAP LENGTH 

256 BYTE SECTOR, 

SINGLE-DENSITY, ONE-SIDED 

.WORD 

•+DSTL 

{DISK SPEC TABLE LINK POINTER 

.BYTE 

4 

;BLOCK SIZE 

.WORD 

(77 # (15*X1<1)))/(1<4) :NUMBER OF BLOCKS 

.BYTE 

2 

;NUMBER OF DIRECTORY BLOCKS 

.BYTE 

1 

;PHYSICAL SECTOR SIZE (2~N*128) 

•WORD 

15 

;PHYSICAL SECTORS PER TRACK 

• WORD 

77 

;PHYSICAL TRACKS PER DISK 

• WORD 

0 

;RESERVED TRACKS 

• WORD 

0 

;TRANSLATION TABLE ADDRESS 

.BYTE 

1 

{DISK TYPE CODE 

.BYTE 

OEH 

{GAP LENGTH 

128 BYTE SECTOR, 

SINGLE-DENSITY, TWO-SIDED COLD) 

• WORD 

.+DSTL 

;DISK SPEC TABLE LINK POINTER 

.BYTE 

4 

:BLOCK SIZE 

.WORD 

(76*(52 # (1<0)))/(1<4) :NUMBER OF BLOCKS 

.BYTE 

2 

;NUMBER OF DIRECTORY BLOCKS 

.BYTE ' 

0 

;PHYSICAL SECTOR SIZE (2~N*128) 

• WORD 

52 

;PHYSICAL SECTORS PER TRACK 

.WORD 

77 

;PHYSICAL TRACKS PER DISK 

.WORD 

1 

;RESERVED TRACKS 

.WORD 

0 

;TRANSLATION TABLE ADDRESS 

.BYTE 

1<TSD 

{DISK TYPE CODE 

.BYTE 

7 

;GAP LENGTH 

128 BYTE SECTOR, 

SINGLE-DENSITY, TWO-SIDED 

.WORD 

.+DSTL 

;DISK SPEC TABLE LINK POINTER 

.BYTE 

4 

:BLOCK SIZE 

• WORD 

(77#(52«(i<0)))/(1<4) {NUMBER OF BLOCKS 

.BYTE 

2 

;NUMBER OF DIRECTORY BLOCKS 

.BYTE 

0 

;PHYSICAL SECTOR SIZE (2*N*128) 

.WORD 

52 

;PHYSICAL SECTORS PER TRACK 

.WORD 

77 

;PHYSICAL TRACKS PER DISK 

.WORD 

0 

;RESERVED TRACKS 

.WORD 

0 

{TRANSLATION TABLE ADDRESS 

.BYTE 

1 <TSD 

{DISK TYPE CODE 

.BYTE 

7 

{GAP LENGTH 


128 BYTE SECTOR, SINGLE-DENSITY, ONE-SIDED 
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0044* 

0000 

DSTAj 

.WORD 0 

DISK SPEC TABLE LINK POINTER 

0046 *- 

03 

DSTBt 

.BYTE 3 

BLOCK SIZE 

0047 *■ 

00F3 


.WORD (75*( 26*( 

1<0)))/(1<3) ;NUMBER OF BLOCKS 

0049» 

02 


.BYTE 2 

NUMBER OF DIRECTORY BLOCKS 

0O4A* 

00 


.BYTE 0 

PHYSICAL SECTOR SIZE (2~N*128) 

004B* 

001A 


.WORD 26 

PHYSICAL SECTORS PER TRACK 

004D f 

004D 


.WORD 77 

PHYSICAL TRACKS PER DISK 

004F» 

0002 


•WOR& 2 

RESERVED TRACKS 

000B 


XLTBL 

s: ,-DSTB 

TRANSLATION TABLE ADDRESS OFFSET 

0051 * 

0055 * 

» 

.WORD TRTBL 

TRANSLATION TABLE ADDRESS 

OOOF 


DTCO 

rr ,-DSTA 

DISK TYPE CODE OFFSET 

000D 

- 

TYPCOD 

s: ,-DSTB 

DISK TYPE CODE OFFSET 

0053* 

00 

r 

.BYTE 0 

DISK TYPE CODE 

OOOE 


GAPLEN 

s: ,-DSTB 

GAP LENGTH OFFSET 

0054* 

or 

i 

.BYTE 7 

GAP LENGTH 

0011 


DSTL = ,-DSTA j 

• 

\ SINGLE-DENSITY/SINGL£-£ 

DISK SPEC TABLE LENGTH 

SIDED SECTOR TRANSLATION TABLE 

0055' 

00060C121804 

TRTBL: 

.BYTE 0,6,12,1* 

),24,4,10,16,22 

005E’ 

02080El40107 


.BYTE 2,8,14,2C 

1,1,7,13,19,25 

0067* 

050B11170309 


.BYTE 5,11,17,- 

23,3,9,15,21 


.END 
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.IDENT 

RTC442 


;MODULE ID 



1 INSERT 

DREQUATE 

;DRIVER SYMBOLIC EQUIVALENCES 

0010 


IOBASE 

* 10H 


{SERIAL/PARALLEL I/O PORT BASE 

0016 


TIM2 

s I0BASE+06H 

{TIMER 2 DATA REGISTER 

0017 

- 

TIMCTL 

= I0BASE+07H 

{TIMER CONTROL REGISTER 

0018 


SINTE 

s I0BASE+08H 

{SERIAL INTERRUPT ENABLE REGISTER 

0019 


T2RES 

# 

= I0BASE+09H 

{TIMER 2 INTERRUPT RESET 

0001 


RTCENA 

s 1 


{REAL TIME CLOCK ENABLE BIT 

00B6 


T2CMD 

= 0B6H 


{TIMER 2 COMMAND 

oooo» 


i 

•LOC 

.DATA.# 

{LOCATE IN DATA AREA 

0000" 

00 

TICCNT: 

.BYTE 

0 

{TICK COUNTER 

0000» 


t 

•LOC 

.PROG.# 

{LOCATE IN PROGRAM AREA 

0000» 

002A 

f 

.WORD 

NITLEN+2 

{INITIALIZATION CODE LENGTH 

0002' 

3EC3 

RTCNIT:: 

MVI 

A, JMP 

;INIT RTC INTERRUPT VECTOR ADDR 

0004 1 

32 0008 


STA 

1*8 


0007 ' 

21 002A* 


LXI 

H,RTCISR 

OOOA' 

22 0009 


SHLD 

(1*8)+1 


OOOD' 

3EB6 


MVI 

A,T2CMD 

{GET TIMER 2 COMMAND 

000F' 

D317 


OUT 

TIMCTL 

{SELECT TIMER 2 

0011 * 

21 0000:04 


LXI 

H.RTCCNT# :GET RTC COUNTER VALUE 

0014* 

7D 


MOV 

A,L 

{GET LSB OF TIMER VALUE 

0015' 

D316 


OUT 

TIM2 

{OUTPUT IT TO TIMER 2 DATA REGISTER 

0017* 

7C 


MOV 

A,H 

{GET MSB OF TIMER VALUE 

0018 T 

D316 


OUT 

TIM2 

{OUTPUT IT TO TIMER 2 DATA REGISTER 

001 A* 

21 0000:05 


LXI 

H,INTMSK# :GET INTERRUPT MASK 

001D T 

CBCE 


SET 

1 »M 

{SET RTC INTERRUPT ENABLE BIT 

001F’ 

3A 0000:05 


LDA 

INTMSK 

{GET INTERRUPT MASK 

0022» 

D318 


OUT 

SINTE 

{ENABLE RTC INTERRUPT MASK 

0024« 

21 0002' 


LXI 

H,RTCNIT 

{GET INITIALIZATION CODE ADDRESS 

0027 ' 

C3 0000:06 


JMP 

DEALOC# 

;DE-ALLOCATE INITIALIZATION CODE 

0028 


NITLEN 

s .-RTCNIT 

{INITIALIZATION CODE LENGTH 

002A* 

ED73 0000:07 

RTCISR: 

SSPD 

INTSP# 

{SAVE STACK POINTER 

002E 1 

31 0000:08 


LXI 

SP,INTSTK# :SET UP AUX STACX POINTER 

0031 ‘ 

F5 


PUSH 

PSW 

{SAVE REGISTERS 
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0032*- 

C5 

PUSH 

B 


0033* 

05 

PUSH 

0 


0034~ r 

E5 

PUSH 

H 


0035* 

0319 

OUT 

T2RES 

:RESET RTC INTERRUPT 

0037 r 

21 0000* 

LXX 

H.TICCNT :GET TICK COUNTER 

003A' 

34 

INR 

M 

,*INCREMENT TICK COUNTER 

003B* 

7E 

MOV 

A, M 

•GET TICK COUNT 

003C* 

01 0000:09 

LXI 

B.TXCSEC# :GET NUMBER OF TICKS PER SECOND 

003F r 

B9 

CMP 

C 

; SECONDS COUNT REACHED? 

0040» 

3805 

JRC 

••NSEC 

;IF NOT, CONTINUE 

0042 * 

3600 

MVI 

M, 0 

;ELSE, RESET TICK COUNTER 

0044* 

CD 0000:0A 

CALL 

RTCSEC# 

;SERVICE REAL TIME CLOCK MANAGER 

0047* 

CD 0000:OB 

..NSEC: CALL 

DLYTIC# 

;SERVICE DISPATCHER DELAY MANAGER 

004A* 

El 

POP 

H 

;RESTORE REGISTERS 

004B* 

01 

POP 

0 


004C* 

Cl 

POP 

B 


004D* 

FI 

POP 

PSW 


004E* 

ED7B 0000:07 

LSPD 

INTSP* 

;RESTORE STACK POINTER 

0052* 

C3 0000:0C 

JMP 

ISR2IT# 

;CONTINUE 


.END 
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•10 ENT 

m 

BPD401 

;MODULE 10 


llNSERT 

* 

EQUATE 

;0/S SYMBOLIC EQUIVALENCES 

0080 

RAM 

« « 
^ « 

TBUF 

;WORKING STORAGE ADDRESS 

0040 

RAMLER 


64 

;WORKING STORAGE LENGTH 

0082 

CHIDMA 

- 

82H 

;CHANNEL 1 DMA REGISTER CFDC} 

0083 

CH1TC 


83H 

;CHANNEL 1 TERMINAL COUNT (FDC) 

0088 

DMACTL 

3 

88H 

;DMA COMMAND AND STATUS REGISTERS 

008A 

OSESEL 

s 

8 AH 

;DISK SELECT PORT 

008C 

DSKCTL 

s 

8CH 

jSTATUS AND INT MASK (BOARD) 

008E 

FDCST 

s 

8 EH 

jDISK CONTROLLER STATUS (uPD-765) 

008F 

FDCDAT 

• 

3 

8FH 

;DISK CONTROLLER DATA (uPD-765) 

0042 

CHI ENA 

3 

42H 

;DMA CHANNEL 1 ENABLE COMMAND 

0000 

DMAVFY 

— 

OOH 

;DMA VEHIFY COMMAND 

0040 

DMARD 

s 

40 H 

;DMA READ COMMAND 

0080 

DMAWR 


80H 

;DMA WRITE COMMAND 

0003 

FDCSFY 


03H 

;FDC SPECIFY COMMAND 

0004 

FDCSDS 

3 

04H 

;FDC SENSE DRIVE STATUS COMMAND 

0007 

FDCRCL 

s 

07 H 

;FDC RECALIBRATE COMMAND 

0008 

FDCSIS 

s 

08H 

;FDC SENSE INTERRUPT STATUS COMMAND 

OOOA 

FDCRID 

3 

OAH 

;FDC READ ID COMMAND 

00 OF 

FDCSK 

— 

OFH 

;FDC SEEK COMMAND 

0085 

FDCWR 


85H 

;FDC WRITE COMMAND 

0086 

FDCHD 

= 

86H 

;FDC READ COMMAND 

0000 

DSKENI 

• 

0 

;DISK CONTROLLER ENABLE INTERRUPTS 

0007 

DSKDLC 

= 

7 

;DISK CONTROLLER DELAY COMPLETE 

0006 

FDCMFM 

s 

6 

iFDC DOUBLE-DENSITY BIT 

0004 

FDCBSY 

- 

4 

;FDC BUSY STATUS 

0005 

FDCSE 

«■» 

5 

;FDC SEEK END 

0006 

FDCOUT 

S 

6 

,FDC OUTPUT MODE 

0007 

FDCRDY 

• 

7 

;FDC READY FOR DATA 

OOCO 

SRT5 

- 

(16-4X4 

;5 INCH FDD STEP RATE (4 MS-MINI) 

00A0 

SRT8S 

= 

(16-6X4 

;8 INCH FDD STEP RATE (6 MS-SHUGART: 

OODO 

SRT8R 


(16-3X4 

;8 INCH FDD STEP RATE (3 MS-REMEX) 

00F0 

SRT8P 


(16-1X4 

;8 INCH FDD STEP RATE (1 MS-PERSCI) 

0024 

HLT 

- 

18*2 

;FDD HEAD LOAD TIME (36 MS) 
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ooot 


HUT 

= 1 


;FDD HEAD UNLOAD TIME (16 MS) 

0003 


STONE 

- 3 


;STATUS REGISTER 0 NOT READY 

0004 


STOEC 

a 4- 


;STATUS REGISTER 0 EQUIP CHECK 

0005 


STOSE 

s 5 


•STATUS REGISTER 0 SEEK END 

0000 


ST1MA 

s 0 


;STATUS REGISTER 1 MISSING ADDR MK 

0001 


ST1NW 

a 1 


;STATUS REGISTER 1 NOT WRITABLE 

0002 


ST1ND 

a 2 


;STATUS REGISTER 1 NO DATA 

0004- 


ST10R 

a 4- 


;STATUS REGISTER 1 OVER RUN 

0005 


ST1DE 

# 

= 5 


; STATUS REGISTER 1 DATA- ERROR 

0003 


ST3TS 

= 3 


;STATUS REGISTER 3 TWO-SIDED 

0004- 


ST3TQ 

a 4 


;STATUS REGISTER 3 TRACE 0 

0005 


ST3RDT 

= 5 


;STATUS REGISTER 3 READY 

0006- 

' 

ST3WF- 

• 

a a 


;STATUS REGISTER 3 WRITE PROTECTED 

0002 


TSD 

a 2 


;TWO-SIDED DISK BIT (TYPE CODE) 

0003 


DDD 

= 3 


;DOUBLE DENSITY DISK BIT (TYPE CODE. 

OOOA. 


*■ 

MAXTRY 

# 

a 10 


;MAX TRY COUNT 

OOCO 


t 

• 

.LOC 

RAM+RAMLEN ;LOCATE IN WORKING STORAGE ARa* 

OOCO 


IODSKi 

.BLEB 

1 

;DISK NUMBER 

OOC1 


IOTRK: 

•BLEW 

1 

;TRACK NUMBER 

00C3 


IOSEC: 

.BLEW 

1 

;SECTOR NUMBER 

00C5 


IODMA: 

.BLEW 

1 

;DMA ADDRESS 

OOC7 


ST3REG; 

; .BLEB 

1 

jSTATUS REGISTER 3 

oocs 


THYCNT: 

: .BLEB 

1 

;TRY COUNT 

00 C9 


DSKNFO! 



jDISK TYPE INFORMATION 

OOC9 


BLKSIZ; 

•BLEB 

1 

;BLOCK SIZE 

OOCA 


NMBLKSl 

.BLEW 

1 

;NUMBER OF BLOCKS 

OOCC 


NMBDIR: 

• BLEB 

1 

;NUMBER OF DIRECTORY BLOCKS 

OOCD 


SECSIZ: 

.BLEB 

1 

;PHYSICAL SECTOR SIZE (2*N*128) 

OOCE 


SECTHK; 

•BLEW 

1 

;PHYSICAL SECTORS PER TRACK 

OODO 


THKDSK; 

.BLEW 

1 

;PHYSICAL TRACKS PER DISK 

00D2 


RESTRK: 

.BLEW 

1 

;NUMBER OF RESERVED TRACKS 

00D4 


XLTBL: 

• BLEW 

1 

;TRANSLATION TABLE ADDRESS 

00D6 


TYPCOD: 

: .BLEB 

1 

;DISK TYPE CODE 

00D7 


GAPLEN: 

: .BLEB 

1 

;GAP LENGTH 

OOOF 


DNFOL 

s .-DSKNFO 

;DISK INFO LENGTH 

0000' 


I 

.LOC 

.PROG.# 

;LOCATE IN PROGRAM AREA 

0000' 

3E03 

INIT:: 

MVI 

A.FDCSFY :GET FDC SPECIFY COMMAND 

0002' 

CD 01B3* 


CALL 

DATOUT 

:OUTPUT FDC SPECIFY COMMAND 

0005' 

3EA1 


MVI 

A,SRT8S!HUT :GET STEP RATE/HEAD UNLD TIMF 

0007' 

CD 01B3' 


CALL 

DATOUT 

;OUTPUT STEP RATE/HEAD UNLD TIME 

OOOA' 

3 £2 4 


MVI 

A, HLT 

;GET HEAD LOAD TIME/NON-DMA BIT 

OOOC' 

CD 01B3* 


CALL 

DATOUT 

;OUTPUT HEAD LOAD TIME/NON-DMA BIT 

OOOF’ 

21 0100 


LEI 

H, TPA 

;GET LOAD BASE ADDRESS 
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0012’ 

C9 

• 

RET 

• 

0013* 

FE04- 

SELECT: 

:CPI 

4 ; 

0015* 

3061 


JRNC 

..NR ; 

0017' 

32 00C0 


STA 

IODSK ; 

001A* 

4F 


MOV 

C, A 

001B* 

DB8C 


IN 

DSKCTL ; 

001D f 

OF 


RRC 

• 

001E T 

E603 


ANI 

3 

0020 1 

B9 


CMP 

C ; 

0021 ' 

2803 


JRZ 

..DS ; 

0023' 

79 


MOV 

A, C 

0024* 

D38A 


OUT 

DSKSEL ; 

0026* 

01 0014 

• *DS c 

LXI 

B,20 ; 

0029* 

10FE 

•* eDLTt 

DJNZ 

• .DLY 

002B* 

OD 


DCR 

C 

002C* 

20FB * 


JRNZ 

..DLY 

002E* 

3E04 


MV I 

A,FDCSDS 

0030* 

CD 01B3* 


CALL. 

DATOUT ; 

0033' 

3A OOCO 


LDA 

IODSK ; 

0036* 

CD 01B3* 


CALL 

DATOUT ; 

0039’ 

CD 01A7* 


CALL 

DATAIN ; 

003C* 

CB6F 


BIT 

ST3HDY, A 

003E* 

2838 


JRZ 

..NR ; 

0040* 

32 OOC7 


STA 

ST3REG ; 

0043' 

CD 0165’ 


CALL 

RECAL ; 

0046* 

2030 


JRNZ 

..NR ; 

0048* 

0E00 


MVI 

C,0 ; 

004A* 

21 OOC7 


LXI 

H,ST3REG 

004D* 

CB5E 


BIT 

ST3TS,M ; 

004F* 

2802 


JRZ 

.. OSD ] 

0051' 

CBD1 


SET 

TSD, C ; 

0053 * 

3E0A 

••OSD: 

MVI 

A,FDCRID 

0055* 

CD 0089' 


CALL 

..RID 

0058* 

2809 


JRZ 

••TPC ; 

005A* 

3E4A 


MVI 

A,FDCRIDl 

005C* 

CD 0089* 


CALL 

..RID 

005F* 

2017 


JRNZ 

..NR ; 

0061 ' 

CBD9 


SET 

DDD, C ,\ 

0063* 

B1 

^•TPC; 

ORA 

C ; 

0064* 

4F 


MOV 

c, A ; 

0065* 

11 0000:04 


LXI 

D,DSTBLS# 

0068* 

79 

• • SL • 

MOV 

A, C ;i 

0069 ' 

21 0000:05 


LXI 

H, DTCO# ; 

006C 

19 


DAD 

D ; 

006D* 

BE 


CMP 

M ; 

006 E* 

EB 


XCHG 


006F* 

2809 


JRZ 

..DSTF ; 

0071 ' 

5E 


MOV 

E,M ; 

0072* 

23 


INX 

H 

007 3’ 

56 


MOV 

D, M 

0074* 

7 A 


MOV 

A,D 

0075' 

B3 


ORA 

E ; 

0076* 

20F0 


JRNZ 

..SL ; 


BONE 

TEST FOR VALID DRIVE 
IF INVALID DRIVE, CONTINUE 
ELSE, SET DISK NUMBEE 
DISE NUMBER TO G-REG 
GET DISE CONTROLLER STATUS 
EXTRACT SELECTED DRIVE 

DRIVE ALREADY SELECTED? 

IF SO, CONTINUE 
ELSE, GET DISE NUMBER 
SELECT DISE NUMBER 
DELAY 10 MILLISECONDS 


;G£T FDC SENSE DRIVE STATUS CMD 


;DRIVE READY? 


;GET STATUS REGISTER 3 


•GET FDC READ ID COMMAND (SD) 


;GET READ ID CMD (DD) 


VE TYPE CODE IN C-REG 
•GET DST BASE ADDRESS 


CONTINUE 
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0078* 

AF 

..NR: 

IRA 

A 

[SET RETURN CODEsO 

00T9 f 

C9 


RET 


[DONE 

OOTA* 

23 

..DSTF t 

INX 

H 

ADVANCE PAST LINE POINTER 

OOTB* 

23 


INX 

H 


OOTC r 

E5 


PUSH 

H 

[SAVE DST ADDRESS 

OOTD» 

It 00C9 


LXX 

D,DSKNFO 

;GET DISK INFO WORK AREA 

0080 * 

01 OOOF 


LXI 

B,DNFOL 

GET DISK INFO LENGTH 

0083‘ 

EDBO 


LDIR 


COPY DST INTO WORK AREA 

0085* 

El 


POP 

H 

RESTORE DST ADDRESS 

0086* 

3EFF 


MVI 

A,OFFH 

SET RETURN CODEsOFFH 

0088* 

C9 


RET 


DONE 

0089* 

C5 

..RID: 

PUSH 

B 

SAVE BC-REG 

008A* 

CD 01B3 f 


CALL 

DATOUT 

OUTPUT COMMAND TO FDC 

008D* 

3A OOCO 


LDA 

IQDSK 

GET DISK NUMBER 

0090 * 

CD 01B3* 


CALL. 

DATOUT 

OUTPUT IT TO FDC 

0093* 

CD 0170* 


CALL 

WTINT 

WAIT FOR INTERRUPT 

0096* 

78 


MOT 

A,B 

RETURN SECTOR SIZE 

0097* 

Cl 


POP 

B 

RESTORE BC-REG 

0098* 

C9 


RET 


DONE 

0099* 

ED43 00C1 

READ:: 

SB CD 

IOTRK 

;SAVE TRACK NUMBER 

009D* 

ED53 00C3 


SDED 

IOSEC 

[SAVE SECTOR NUMBER 

00A1 » 

22 00C5 


SHLD 

IODMA 

[SAVE DMA ADDRESS 

00 A4* 

21 00C8 


LXI 

H,TRYCNT 

;GET TRY COUNT 

OOA7 * 

360A 


MVI 

M,MAXTRY 

.•INITIALIZE TRY COUNT 

00A9 * 

CD 0152* 

..RR: 

CALL 

SEEK 

;SEEK TO REQUESTED TRACK 

OOAC* 

C2 0143* 


JNZ 

..ERR 

IF ERRORS, CONTINUE 

OOAF* 

A F 


XRA 

A 


OOBO* 

D388 


OUT 

DMACTL 

RESET DMA CONTROLLER 

00 B2* 

21 0080 


LXI 

H, 128 

GET SECTOR SIZEsO SECTOR LENGTH 

OOB5* 

3A OOCD 


LDA 

SECSIZ 

GET PHYSICAL SECTOR SIZE 

00B8 * 

B7 


ORA 

A 

PHYSICAL SECTOR SIZEsO? 

00B9* 

2804 


JRZ 

..N01 

IF SO, CONTINUE 

OOBB* 

29 

.. SL: 

DAD 

H 

ELSE, SHIFT HL-REG LEFT 

OOBC* 

3D 


DCR 

A 

SECTOR SIZE TIMES 

OOBO* 

20FC 


JRNZ 

..SL 


OOBF* 

2B 

.•N01: 

OCX 

H 

COUNT -1 FOR 8257 

OOCO* 

7D 


MOV 

A,L 

GET LSB OF TERMINAL COUNT 

OOC1 » 

D383 


OUT 

CHI TC 

OUTPUT LSB OF TERMINAL COUNT 

00C3* 

7C 


MOV 

A,H 

GET MSB OF TERMINAL COUNT 

00C4 * 

F640 


ORI 

OMARD 

ADD DMA READ COMMAND 

00C6 * 

D383 


OUT 

CH1TC 

OUTPUT MSB OF TERMINAL COUNT 

00C8 * 

2A 00C5 


LHLD 

IODMA 

GET DMA ADDRESS 

OOCB* 

7D 


MOV 

A,L 

GET LSB OF DMA ADDRESS 

OOCC* 

D382 


OUT 

CHI DMA 

OUTPUT LSB OF DMA ADDRESS 

OOCE* 

7C 


MOV 

A,H 

GET MSB OF DMA ADDRESS 

OOCF* 

D382 


OUT 

CHI DMA 

OUTPUT MSB OF DMA ADDRESS 

00D1 * 

3E42 


MVI 

A,CHI ENA 

;GET CHANNEL 1 ENABLE COMMAND 

Q0D3 * 

D388 


OUT 

DMACTL 

; ENABLE DMA CONTROLLER 

00D5 * 

3E86 


MVI 

A,FDCRD 

;GET FDC READ COMMAND 

OOD7 * 

21 00D6 


LXI 

H,TYPCOD 

[GET DISK TYPE CODE 

OODA* 

CB5E 


BIT 

DDD,M 

[SINGLE DENSITY DISK? 

OODC* 

2802 


JRZ 

..SD 

[IF SO, CONTINUE 

OODE’ 

CBF7 


SET 

FDCMFM, A 

[ELSE, SET FDC MFM BIT 
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QGEO f 

CD 01B3* 

*.SDr 

CALL 

DATOUT j 

-OUTPUT FDC READ COMMAND 

OOE3 t 

3A OOCJ 


LDA 

IOSEC ; 

GET SECTOR NUMBER 

00 E6* 

5F 


MOV 

E.A :SECTOR NUMBER TO E-REG 

00E7 r 

2A 00D4- 


LflLD 

XLTBL 

GET TRANSLATION TABLE ADDRESS 

QOEA' 

7C 


MOV 

A,H 


00EB r 

B5 


ORA 

L 

SECTOR TRANSLATION REQUIRED? 

OOEC* 

2804- 


JRZ 

..NI 

IF NOT, CONTINUE 

OOEE* 

1600 


Mvr 

D,0 

ELSE, MAKE SECTOR DOUBLE LENGTH 

OOFO 1 

19 


DAD 

D 

INDEX INTO TRANSLATION TABLE 

00F1' 

5E 


MOV 

E,M 

GET TRANSLATED SECTOR NUMBER 

00F2» 

1C 

• •Mir 

INR 

E 

CONVERT SECTOR TO BASE 1 

OOF3 1 

3A OOCE 


LDA 

SECTRE 

GET NUMBER OF SECTORS/TRACK 

Q0F6' 

21 00D6 


L2I 

H,TYPCOD 

jGET DISK TYPE CODE ADDRESS 

00F9' 

CB56 


BIT 

TSD,M 

TWO SIDED DISK? 

OOFB* 

2802 


JRZ 

••SSD 

IF NOT, CONTINUE 

OOFD f 

CB3F . 


SRLR 

A 

ELSE, CALC NUMBER OF SECTORS/SIDE 

OOFF T 

57 

•«SSD« 

MOV 

D,A 

SAVE NUMBER OF SECTORS/SIDE 

0100' 

0600 


MV I 

B,0 

PRESET FOR FRONT SIDE 

0102’ 

BE 


CMP 

E 

FRONT SIDE OF DISK? 

0103» 

3004- 


JRNC 

• *FS1 

IF SO, CONTINUE 

0105* 

7B 


MOV 

A,E 

ELSE, GET SECTOR NUMBER 

0106 * 

92 


SUB 

D 

SUBTRACT ONE SIDES WORTH 

0107' 

5F 


MOV 

E, A 

SECTOR NUMBER TO C-REG 

0108* 

04 


INR 

B 

SET HEAD NUMBERS1 

0109* 

3A 00C0 

..FS1: 

LDA 

IODSE 

GET DISK NUMBER 

010C' 

04 


INR 

B 


01OD* 

05 


DCR 

B 

HEADsO? 

010E T 

2802 


JRZ 

..FS2 

IF SO, CONTINUE 

0110' 

CBD7 


SET 

2, A 

ELSE, SET HEAD BIT 

0112* 

CD 01B3' 

•.FS2: 

CALL 

DATOUT 

OUTPUT UNIT NUMBER 

0115* 

3A 00C1 


LDA 

IOTRK 

GET TRACK NUMBER 

0118* 

CD 01B3 * 


CALL 

DATOUT 

OUTPUT TRACK NUMBER 

011B' 

78 


MOV 

A,B 

GET HEAD NUMBER 

011C' 

CD 01B3' 


CALL 

DATOUT 

OUTPUT HEAD NUMBER 

011F T 

7B 


MOV 

A,E 

GET SECTOR NUMBER 

0120* 

CD 01B3* 


CALL 

DATOUT 

OUTPUT SECTOR NUMBER 

0123’ 

3A OOCD 


LDA 

SECSIZ 

GET SECTOR SIZE 

0126' 

F5 


PUSH 

PSW 

SAVE SECTOR SIZE 

0127* 

CD 01B3* 


CALL 

DATOUT 

OUTPUT SECTOR SIZE 

012A* 

7A 


MOV 

A, D 

GET EOT 

012B* 

CD 01B3* 


CALL 

DATOUT 

OUTPUT EOT 

012E* 

3A 00D7 


LDA 

GAPLEN 

GET GAP LENGTH 

0131 » 

CD 01B3' 


CALL 

DATOUT 

OUTPUT GAP LENGTH 

0134* 

FI 


POP 

PSW 

RESTORE SECTOR SIZE 

0135' 

B7 


ORA 

A 

SECTOR SIZEsO? 

0136' 

3E80 


MVI 

A, 128 

PRESET DTLsI28 

0138' 

2802 


JRZ 

..NO 

IF SECTOR SIZEsO, CONTINUE 

013A' 

3EFF 


MVI 

A,OFFH 

ELSE, DTLsOFFH 

013C» 

CD 01B3* 

..NO: 

CALL 

DATOUT 

OUTPUT DTL 

013F* 

CD 0170' 


CALL 

WTINT 

WAIT FOR INTERRUPT 

0142* 

C8 


RZ 


IF NO ERRORS, DONE 

0143' 

CD 0165' 

.•ERR: 

CALL 

RECAL 

RECALIBRATE DRIVE 

0146 » 

2007 


JRNZ 

..X 

IF ERRORS, CONTINUE 

0148' 

21 00C8 


LXX 

H,TRYCNT 

;ELSE, GET TRY COUNT 
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014B» 

35 


DCR 

M> i 

DECREMENT TRT COUNT 

014C» 

C2 00A9-* 


JNZ 

..RR :IF COUNT NOT EXH, THT AGAIN 

014F* 

3EFF 

*.x: 

MVI 

A,OFFH 

[ELSE* SET RETURN CODEsOFFH 

0151 r 

C$ 


RET 


[DONE 

0152* 

3 EOF 

SEEK: 

MVI 

A,FDCSK 

SET FDC SEEK COMMAND 

0154* 

CD 01B3 r 


CALL 

DATOUT 

OUTPUT FDC SEEK COMMAND 

0157' 

3A 00C0 


LDA 

IODSK 

GET DISK NUMBER 

015A r 

CD 01B3 r 


CALL 

DATOUT 

OUTPUT DISK NUMBER 

0T5D* 

3A OOC1 


LDA 

IOTRK 

GET TRACK NUMBER 

0160 * 

CD 0TB3' 


CALL 

DATOUT 

OUTPUT TRACK NUMBER 

0163' 

180B 

• 

JMPR 

WTINT 

WAIT FOR INTERRUPT 

0165' 

3 EOT 

RECALt 

Mvr 

A,FDCRCL 

;SET FDC RECALIBRATE COMMAND 

0167’ 

CD 01B3* 


CALL 

DATOUT ; 

OUTPUT FDC RECALIBRATE COMMAND 

016A« 

3A 00C0 


LDA 

IODSK ; 

GET DISK NUMBER 

016D* 

CD 01B3* 

• 

CALL 

DATOUT ;OUTPUT DISK NUMBER 

0170* 

DB8C 

WTINT: 

IN 

DSKCTL 

GET DISK CONTROLLER STATUS 

0172* 

OF 


RRC 


TEST FOR FDC INTERRUPT 

0173* 

30FB 


JRNC 

WTINT 

IF NO INTERRUPT, WAIT 

0175* 

DB8E 

..HQML: 

IN 

FDCST 

GET FDC STATUS 

0177* 

07 


RLC 


FDC READY TO COMMUMICATE? 

0178* 

30FB 


JRNC 

..RQML 

IF NOT, WAIT 

017A* 

07 


RLC 


TEST FDC DIRECTION 

017B* 

3818 


JRC 

. .RW 

IF FDC OUTPUT AVAILABLE, PROCESS 

017D* 

3E08 


MVI 

A,FDCSIS 

;GET SENSE INTERRUPT STATUS CMD 

017F* 

D38F 


OUT 

FDCDAT 

OUTPUT BYTE TO FDC DATA REGISTER 

0181» 

CD 01A7’ 


CALL 

DATAIN 

GET STATUS REGISTER 0 

0184* 

4F 


MOV 

C, A 

SAVE IT IN C-REG 

0185* 

E6C0 


ANI 

OCOH 

EXTRACT COMPLETION STATUS 

0187* 

FE80 


CPI 

80H 

INTERRUPT STACK EMPTY? 

0189* 

2818 


JRZ 

..X 

IF SO, DONE 

018B* 

CD 01A7* 


CALL 

DATAIN 

GET PRESENT CYLINDER NUMBER 

018E’ 

CB69 


BIT 

STOSE, C 

READY LINE CHANGE STATE? 

0190* 

28E3 


JRZ 

..RQML 

IF SO, IGNORE 

0192* 

51 


MOV 

D,C 

GET STATUS REGISTER 0 IN D-REG 

0193 1 

18E0 


JMPR 

..RQML 

FLUSH ANY REMAINING INTERRUPTS 

0195* 

CD 01A7* 

• •RW: 

CALL 

DATAIN 

GET STATUS REGISTER 0 

0198* 

57 


MOV 

D, A 

TO D-REG 

0199* 

0606 


MVI 

B,6 

BsLENGTH OF REMAINING RESULT PHASE 

019B* 

CD 01A7* 

• • RL: 

CALL 

DATAIN 

GET RESULT BYTE FROM FDC 

019E* 

10FB 


DJNZ 

..RL 

READ ALL SEVEN BYTES 

01 AO* 

47 


MOV 

a,A 

SAVE SECTOR SIZE IN B-REG 

01A1 • 

18D2 


JMPR 

..RQML 

FLUSH ANY REMAINING INTERRUPTS 

01 A3' 

7 A 

..1: 

MOV 

A,D 

GET STATUS REGISTER 0 

01A4* 

E6C0 


ANI 

OCOH 

EXTRACT COMPLETION STATUS 

01A6* 

C9 


RET 


DONE 

01A7 ' 

DB8E 

DATAIN: 

IN 

FDCST 

GET FDC STATUS 

01A9* 

07 


RLC 


TEST FDC FOR READY 

01AA* 

30FB 


JRNC 

DATAIN 

IF NOT READY, WAIT 

01 AC* 

07 


RLC 


TEST FDC DIRECTION 

01 AD’ 

D2 0000:06 


JNC 

.BEG.# 

IF WRONG DIRECTION, CONTINUE 
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OIBO* 

DB8F 


IN 

FDCDAT 

;GET FDC DATA BYTE 

01B2* 

C9 


RET 


;DONE 

01B3 r 

4F 

DATOUTr 

MOV 

C,A 

;SAVE OUTPUT BYTE 

01 B4 f 

DB8E 

*.RW: 

IN 

FDCST 

;GET FDC STATUS 

01B6» 

or 


RLC 


;TEST FDC FOR READY 

Q1BT* 

30FB 


JRNC 

..RW 

;IF NOT READY, WAIT 

01B9 f 

or 


RLC 


;TEST FDC DIRECTION 

01BA* 

DA 0000:06 


JC 

*B£G*f 

;IF WRONG DIRECTION, CONTINUE 

01BD* 

79 


MOV 

A, C 

;RESTORE OUTPUT BUTE 

01BE» 

D38F 


OUT 

FDCDAT 

;OUTPUT BYTE TO FDC DATA REGISTER 

01C0» 

C9 


RET 


;DONE 

01C1» 

AF 

XFER:: 

IRA 

A 


01C2* 

32 0080 


STA 

TBUF 

;MAEE DEFAULT BUFFER EMPTY 

01C5» 

C3 0100 


JMP 

TPA 

;TRANSFER TO 0/S LOADER 








